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PREFACE 



This reference manual contains detailed information for users of the Multlcs 
PL/I language. Contained herein are exact answers to detailed questions concerning 
the syntax and semantics of PL/I. Additional information useful to the Multics 
PL/I programmer is found in the following documents: 

Multics PL/I Reference Manual - Order Ho. AM83 
Multics Programmers ' Manual (MPM) : 

MPM Reference Guide - Order No. AG91 

MPM Commands and Active Functions - Order No. AG92 

MPM Subroutines - Order No. AG93 

MPM Peripheral Input/Output - Order No. AX49 

MPM Subsystem Writers' Guide - Order No, AK92 

The Multics PL/I Reference Manual provides an introduction to Multics PL/I, 
furnishes guidance for writing a Multics PL/I program, and explains the relationship 
between Multics PL/I and the run-time environment supplied by the Multics system. 

The MPM Reference Guide describes in general terms the functions and features 
of the Multics systeis^ for exasiple, representation of FL/I data. 

The MPM Commands and Active Functions contains descriptions of the commands 
in the command repertoire and the active functions available to the Multics 
system. 

The MPM Subroutines contains descriptions of the subroutines available on 
the system. 

The MPM Peripheral Input/Output contains descriptions of commands and 
subroutines used to perform peripheral I/O. This manual includes the commands 
and subroutines that manipulate tapes and disks as I/O devices as well as such 
special-purpose communications I/O as binary synchronous operations. 

The MPM Subsystem Writers' Guide contains such detailed descriptions as the 
the exact layout of a PL/I activation record (stack frame), the internal format 
of a PL/I area, and the calling sequence generated for a PL/I call. Most users 
will not require the extent of detail contained in this volume. 

The MPM Communications Input/Output contains descriptions of commands and 
subroutines used to perform communications I/O, This manual includes information 
on terminal types. 



Slgnlfleant Changes In AG94 . flevlslon 2 . Addendum E 

Chat loif ^^'* of changes includes only those changes made to AC9i| Addendum E 
that were accompanied by changes to the Hultics PL/I implementation. *''""'*™ ^ 

'■ oJerator?"°" ^"^""^^ °"^^^ of operand conversion for the exponentiation 
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SECTION 1 
INTRODUCTION 



This document is a semi-fopmal definition of the language suDDorted by the Mult<os 
?L/i ooapiler. ihe document is intended to be used as a reference manual "by 
programmers who need exact answers to detailed questions concerning the syntax 

Int \Z%']1\" °^ """^", ^y^- ^" '**P^"8 -^^'^ '""^^ purpose, the document definis 
the language in an analytic rather than a synthetic manner; i.e., it explains 
the meaning of programs, but does not describe how to construct programs. 

1 . 1 Language 

The Multics PL/I language is a dialect of the American National Standard Programming 
Language PL/I ANSI X3.53-1976; it also conforms to International sfanSardll 
Organization standard 6160-1979. Refer to Appendix A for a description of the I 
two differences between standard PL/I and Multics PL/I. The languages are so 
similar that nearly all Multics PL/I programs are valid program! in standard 

1«2 Method of Definition 

nrnJ^^o"^A*»„l^^s'^®^A"*'^ """"f ^ ^'"■"^^ raeta-language to define the syntax and 
prose to describe the semantics. Although this is a semi-formal definition. 
Both the syntactic and semantic descriptions are reasonably precise and complete. 

Example: 

<based attribute): := basedC (<locator re.ference>) ] 

!'e^Ss*a"pe'L'"-°'-xa=t-"--'°thL'i"''' .^"^i''"'^^ <"•, ^ <loo3tor reference), these 
-e. ms a^pea. =xaotj.j, aa they do in tne syntax rule. When a keyword appears in 

"baled" 'and'''"f!oat!- '" """""^ ^° "^^^^^^^uish it from the text; for example, 

Terms defined in prose are underlined when defined and not underlined thereafter 
nr^^»i?^•^/^* provided to aid understanding but are not intended to be comprehensive 
or definitive. All examples are clearly set off from the rest of the text as 
shown by the example on this page. Within examples where empty space might be 
misleading, » denotes a blank. f / y j-bi u ue 
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1.2.1 



Meta-Language 



The syntax of the PL/I language is defined by a set of syntax rules expressed in 
a formal notation derived from Backus-Naur Form. Each syntax rule describes a 
character-string or pattern of characters that constitutes a syntactic construct 
of the PL/I language. The complete set of syntax rules describes all syntactically 
correct PL/I programs. 

Example: 

<3kip option>::i skipC (<expression>) ] 

In this example, <skip option> is a notation variable that represents the 
character-string described by the syntax expression on the right of the definition 
symbol "::= " . "skip" is a notation constant chat represents an actual occurrence 
of the character-string "skip." <expression> Is a notation variable defined by 
another syntax rule. [ and ] are brackets that indicate that the parenthesized 
<expre3Sion> is optional. The brackets are symbols of the raeta-language, they 
are not part of the <3kip option>. 

Readers familiar with formal grammars should note that these syntax rules are 
designed to aid presentation of both syntax and semantics. Therefore, constructs 
like multiple closure of <group>s and <blook>s and the balancing of "then" and 
"else" keywords of <if 3tatement>s are not described by the syntax rules, but 
are described in prose. 

Readers not familiar with formal descriptions of syntax should not be concerned 
if they do not fully understand the formalism. They are urged to compare examples 
against the syntax rules and from time-to-tirae consult the description of the 
formalism given in the following section. 



1.2.2 Syntax Expressions 

A syntax expression consists of operators, notation variables, notation constants, 
braces { ) and brackets [ ]. The operators have a property known as precedence 
that determines the order in which the syntax expression is interpreted. Operators 
with higher precedence are interpreted before operators with lower precedence- 
Braces and brackets have the effect of parentheses and force the interpretation 
of their contents as subexpressions. 

The operators of the raeta-language in order of decreasing precedence are: 

Repetition X... Denotes one or more 

occurrences of X. 

Juxtaposition X Y Denotes an occurrence of X 

followed by an occurrence of Y. 

Alternation X|Y Denotes an occurrence of 

X or Y but not both. 
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Brackets and braces define the order of expression interpretation. Brackets 
also indicate that the syntax described by their enclosed subexpression is 

optional. *^ 

[XJ Denotes zero or one occurrence of X. 

UIB}C Denotes an A or a B, followed by a C. 
Example: 

AIBIC 
describes any of the following three strings: 

ABC 
Example: 

{A|B}C 
describes either of the following two strings: 

AC BC 
Example: 

[AjB]C 
describes any of the following three strings: 

AC BC C 
Example: 

AB[C]... 

describes any string beginning with AB followed by zero or more occurrences of 
cne j.etoer c. 

AB ABC ABCCCC 

Example: 

A B... 

thfliEterT ^^""^"^^ beginning with A and followed by one or more occurrences of 

AB ABB ABBBBB 
Example: 

AB... 

describes any string consisting of one or more oecurrenGes of AB. 
AB ABAB ABABABAB 

1-2.3 A Forma; Definition of the Mftt.p-f.fi , r,p.in f To 

Syntax: 

<meta-language>::s <syntax rule>... 

<syntax rule>::= <notation variable> ; ; = <blank> 
<syntax expres3ion> 
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<3yntax expression> : : = <sequence>l 
<sequence>l<3yntax expression> 

<sequence>: := <unit> |<unit><sequence> 

<unit>::= <notation variable> Knotation constant>l <unit> . . . I 
i<syntax expressioii>ilX.<syntax expression>l 

<notation variable>::= <.<meta-letter> 
[ <meta-letter> | <blank> !-]...> 

<meta-letter> ::=alblcld|e|f|g|h|iljik|l|mln|o|p|q|r|s|tiu| 
vlwlxly Iz 

<blank>::= a blank space 

<notation constant>::= Any string of ASCII characters not 
containing a <blank> . If the string is one of the 
following, it must be underlined to distinguish it 
from symbols of the meta-language. 

A <blank> is required between any adjacent <notation constant>s in a <sequence>. 



1 .3 Warning 

PL/I, like most other programming languages, is a language in which it is 
possible to write programs whose meaning is undefined. Furthermore, it is not 
practical to always detect such programs either during compilation or during 
execution. 

Because of the large number of constructs in PL/I, it is very easy to 
inadvertently write a pf^ogram whose meaning is undefined. Programmers are 
a-viss- >,o j.sarn u»iS exact rules for using each coriatrucfc , and are advised to 
carefully consider the warning given in this section. 

Only those strings described by <external procedure> are syntactically valid. 
All others violate the syntactic constraints specified by the syntax rules and 
are in error. 

When the description of a language construct specifies a constraint either by 
means of syntax rules, by specifically enumerating the constraints as is done in 
Section 12, or by giving the constraint in the description of the semantics, the 
constraint has the following meaning: 

A program that violates the constraint may or may not be compiled by the 

Multics PL/I compiler. If compiled, it may or may not execute. If 

executed, it may or may not produce consistent results in the current or 
future versions of the implementation. 

Constraints are given by the syntax rules or are stated clearly in the prose. 
In the prose, two descriptive methods are used: either the constraint is 
specifically described as an error or the words "must", "cannot", or 
"restricted" are used to imply the constraint. 

Examples: 

It is an error to refer to the value . . . 

The program is in error if . . . 

N must not be , .. - 
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A <read statement> cannot contain 
The value of q is restricted . . . 



This document explicitly states the circumstances in which the order of 

evaluation of expressions or statement parts is a well defined property of the 

language and when it is not. When the order is said to be unspecified or 
undefined, any program that depends on the order is in error. 
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SECTION 2 
STRUCTURE OF A PL/I PROGRAM 



2. 1 External Procedure 

A PL/I proKram . consists of one or more <external procedure>s together with their 
operating environment. An <external procedure> is a <procedure> that is not 
contained within another <procedure>. An <external procedure> is the lareest 
Mn?f^°^^p, construct of the language and serves as the unit of input to the 
Multics PL/I compiler. 

I'^Llt^fJ^'^l^''''^^ procedure>3 that constitute a program is determined during 
execution of the program as described in Section 3. 

Syntax: 

<external proGedure>: := <procedure> 

2.2 Blocks and Block .Stn.^^i-.iipa 

J«?.-™^?r.>,^"^°''^^°^*. ^y'^tactic construct of the language is the <block>. It 

delimits the scope of names and is the major unit that determines the flow of 

??!!^''^i r^"? program execution. Refer to Section 3 for a discussion of the 
flow of control and t.o Section 5 for the scope of names. 

Syntax: 

<block>::= <procedure>|<begin block> 

<procedure>: := <procedure 3tatement> 

[<procedure Gomponent>] . . .<end statement> 

<begin block>::= <begin 3tatement> 

[<block component>]. . .<end statement> 

<procedure component>: := <block Gomponent>|<entry statement> 

<bloGk component>::= <block> |<group>l<dsclar8 statement>! 
<default 3tatement>l<format statement>| 
<independent 3tatement> 

The full syntax and semantics of each <statement> are given in Section 12. 

All of the text of a <begin block>, except the <label prefix>s of the <beKin 

'SegjrSSock?"' '"' '°'''"''' '"""'' °' "^ ^^'^'^ statemLt>, is contax'SL in'fhe 

Example: 

A: begin 

, en(J A; 
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The text shown with lines is contained in <begin block> A. 

All of the text of a <procedure>, except the <label pr'efix>s of its <procedure 
statement> and each of its <entry 3tatement>s and the <closure label> of its 
<end statement>, is contained in the <procedure>. 

lixample: 

A: procedure 



B: entry 



end A; 



The text shown with lines is contained in <procedure> A. 

The text contained in <block> A, but not contained in any other <block> 
contained in A, is immediately contained in <block> A. 



Exan 


iple 

P: 

Ini 


procedure; 










ler: 
E: 

end 


procedure; 








entry; 




B: begin; 








end ; 
end; 



In this example, P is an <external procedure> that contains the <procedure> 
is contained in Inner and P, and is immediately contained in Inner. 



2.3 Groups 

A <group> is a programming device used to determine the flow of control during 
program execution. 

Syntax: 

<group>::= <iterative group> Knoniterative group> 

<iterative group>::= <iterative do> 

[<block component>] . . .<end 3tatement> 

<noniterative group>::= <noniterative do> 

[<proGedure component>] . • .<end 3tatement> 

The effect of <group>3 on the flow of control is discussed in Sections 3 and 12. 

Examples: 

A: do; 

end: 
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B: do i = 1 to 10; 



end; 



In this example, the text from A to "end;" is a <noniterative group> and the 
text from B to "end;" is an <iterative group>. 



2.4 Multipl e Closure of Groups and Blocks 



The syntax of a <group> or <block> requires that the <group> or <block> 
terminate with an <end statement>. Since <group>s and <block>s may be nested, 
it is possible for several <end statement>s to immediately follow each other. 

Example : 

a: begin; 
b: begin; 
c: begin; 

end; 
end; 
d: end; 

The syntax of an <end 3tatement> allows an optional <identifier> to follow the 
keyword "end." 

Syntax: 

<end statement>::= [<prefix>]end[<closure label>]; 

<closure label>::= <identifier> 

The <closure label> provides a means of terminating more than one <group> or 
<block> with a single <end statement>. The following example is equivalent to 
the previous example. 

Example: 

a: begin; 
b: begin; 
c: begin; 
d: end a; 

An <end 3tatement> with a <closure label> terminates all preceding <group>s and 
<bloGk>3 including, but not exceeding, the nearest <group> or <block> whose 
first <statement> has a <label prefix> that is the same <identifier> as the 
<closure label>. 

The program is syntactically incorrect if the <closure label> is not a <label 
prefix> on a preceding <begin statement>,- <procedure statement>, or <do 
statement> . 



2-3 AG94 



2 .5 Statements 

Syntax: 

<statement> : := <declarative staternent>| 

<depencient statement> I <independent statement> 

<dependent statement> : : = <format statement> I 
<entry stateraent> I <procedure statement>! 
<begin statement> Kdo statement> Kend statement> 

<independent statement> : : = <allocate statement> I 
<assignraent 3tatement> Kcall statement>| 
<close statement> Kdelete statement>! 
<free statement> Kget statement>| 
<goto statement>l<if statement>| 
<locate statement> I <null statement>| 
<on stateinent> Kopen statement>! 
<put stateraent> Kread 3tatement> ,' 
<return statement> I <revert 3tatement>i 

<rewrite statement> Ksignal statement> i <stop statement> i 
<write statement> 

<deGlarative statement> : : =<declare 3tatement> Kdef ault statement> 

The syntax and semantics of each <statement> are given in Section 12. The 
effect of <declarative statement>s on the- establishment of declarations is 
described in Section 5. 

All <statement>s are executable, although the execution of a <declarative 
statement> or <forraat statement> has no effect. 

The <dependent statement>s control input/output, define entries to <procedure>s , 
and form <procedure>s , <begin bloGk>s, and <group>s in accordance with the 
syntax rules in paragraphs 2.2 through 2.4. 



2.5.1 Statement Prefixes 

Syntax: 

<prefix>::= [<condition pref ix>] . . , [<label prefix>]... 

<condition prefix>::= (<prefix name>[ , <pref ix name>]..,): 

<label prefix>::= <declared name>[<pref ix subscript>]: 

<prefix subscript>::= ( [+ I -]<decimal integer>) 

<declared name>::= <identifier> 

A <label prefix> names a <statement>. Any <statement> may be labeled by a 
<label prefix>. 

A <condition prefix> is a means of controlling the type of error checking that 
is to occur during execution of the <statement>. The <prefix name> must be one 
of the names given in paragraph 10.2, where conditions are fully described. A 
<condition prefix> cannot appear on a <declare staternent>, <default statement>, 
or <entry statement>. 
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Example: 



L: a = b-t'C; 
A(3): X = y+z; 
(zerodivide) : p = q/r; 
(overflow, size) : T1: t = s+l; 



ll^'^'^^^ example, L:, A(3): and T1: are <label prefix>s, whereas (zerodivide) 
and (over flow, size): are <condition prefix>s. 



2.6 Lexical Syn tax of PL/I 

The smallest syntactic construct of the language is called a <lexeme> 
Sequences of <lexeme>3 form <statement>s , that in turn form the <group>s and 
<block>s of an <external procedure>. 

Syntax: 

<lexeme>::= <identifier> Kliteral constant> |<isub> i <deliraiter> 



2.6.1 Identifi 



lers 



An <identifier> is used as a keyword or as a <declared name> . A keyword is an 
<identifier> used within the language to identify <stateraent>s or components of 
<statement>s. In Multics PL/I, keywords consist entirely of lower case letters. 

Syntax: 

<identifier>::= <letter>C<letter> !<digit> ! 1$],.. 

Y,Z,a,b,cidleif|g|h|i|jik|i;m!n!oip!qir!3itiu|viw|x!yiz 
<digit>::= on I2I3!4!5;6I7!8!9 

In Multics PL/I, an <identifier> cannot be more than 256 characters long. Refer 
,t° .the Multics PL^ Reference Manua_l for a discussion of the significance of a 
$ xn an <;identirier>used as an external name. 

Examples: 

Capital 

i 

X 

declare 

tag? 

ioa_ 

may$day 



2.6.2 Literal Constant s 

A <literal constant> is a <lexeme> denoting an arithmetic or string value. 
Syntax: 

<literal constant>::= <bit-string constant> I 

<character-string constant> Karithmetic constant> 
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The Gharacter-string used to represent a <literal con3tant> in Multics PL/I 
cannot be more than 256 characters long, including quotation marks and final "b" 
character, if any. 



2.6.2.1 Bit-string constants 

A <bit-string con3tant> denotes the bit-string value formed by converting the 

characters contained within quotes to bits according to the following table and 

then concatenating that value to itself N-1 times, where N is the value of the 
<decimal integer>. N must be greater than 0. 

<character> Bit Value for <character> 

by <radix factor> 

b,b1 b2 b3 b4 

00 

1 1 01 

2 .-10 

3 — 11 

5 

6 

7 

8 

9 

a — 

b — — 

c — — 

d 

Other 

Note: — indicates that the corresponding <character> is invalid for this 
<radix factor>. 

Syntax: 

<bit-string oon3tant>::= 

[(<decimal integer>) ]"[<character>] . , . ''<radix factor> 

<radix factor>::= {bi b1 ! b2 i b3 ! b4} 

In Multics PL/I, the value of an expanded <bit-string constant> cannot be more 
than 253 bits long. 



000 


0000 


001 


0001 


010 


0010 


01 1 


0011 


100 


0100 


101 


0101 


110 


0110 


111 


0111 


« 


1000 


-. 


1001 


— 


1010 


_— 


101 1 


— 


1100 


— 


1101 


— 


1110 


— 


1111 



A null bit-string value is denoted by ""b. 



Examples: 

"01011"b 

"1"b 

""b 

"0e5"b4 
(3)"1"b 

The last example is equivalent to "lll^b. 
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<binary oonstant>::= <binapy nuniber>[<scale type><exponent>]b[p] 

<binary nuinbep>::= <binary integep>[. [<binapy integer>]]l 
.<binapy integep> 

<binary integep>::= <binapy digit>... 

<binapy digit>: := Oil 

The <exponent> of a <binapy eonstant> is wpitten as a <decimal integer> and 
denotes a power of two. The <exponent> of a <decimal constant> denotes a powep 

Janee'".'n«!»i°hJ%\"^ denoted by an <apithmetic con3tant> must lie within the 
Th^^^^nU t I ^^ maximum precision supported for the data type and base of 
the constant. See papagraph 4.1.5 fop a precise desopiption of the pange of 
values supported fop each data type and base. * 

Secti'^o^n"5"2"°"^ °^ "''" ' "*"' "'"'' '""^ "^" '" ^" <apithn,etio con3tant>, see 



Examples: 




47 


.3 


101b 


1p 


25.7 


Ibp 


10.30 


ibpi 


07.20 


8.64f1 


10.24e3 


1f18b 


12.1e+5 




101.101e+5b 




25i 
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2.6.2.2 Character-String Constants 



A <charaoter-3tring oonstant> denotes the character-string value formed by replacing 
all double quotes by a single quote, removing the containing quotes, and concatenating 
the value to itself H-1 times, where N is the value of the <deolmal integer>. N 
must be greater than zero. 



Syntax: 

<character-3tring constant>::= [(<decimal integer))] 
"[<oharaoter> ]. . ." 

<aharaoter>: := ""! Any ASCII character except a quote 

In Multics PL/I, the value of an expanded <character-3tring constant) cannot be 
more than 25^ characters long. 

A null character-string value is denoted by "". 

Examples: 

"abo" 

"This is a character-string constant" 

(25)" " 

nn 

"he said, ""I don't know""" 



2.5.2.3 Arithmetic Constants 

An <arithmetic constant) denotes an arithmetic value of a given type, base, 
mode, and precision. The type, base, mode, and precision are known as <attribute>s 
of the constant and are normally determined by the syntax of the constant. 
Refer to Section 5 for a discussion of the declaration of constants. 

Syntax: 

<arithmetic constant): := <real constant) I <imaginary constant) 

<imaglnary constant); := <real constant>i 

<real constant): := <decimal constant) Kbinary constant) 

Priori imal /^nr^c^aMVS*-- /^HA^^mal Mii«.bL<.«-vry.^^i- i. ^ y ^ _^^t 

=- *«.*«««..«,'..- ^^*s^J.^ua^ iiuiuuci ^ L No^; aic i^ / pe>' s cx po fien 1 7 J 

[p] 

<decimal number)::: <decimal integer) [, [<decimal integer)]]! 
.<deeifflal integer) 

<decimal integer): := <digit)... 

<digit>::= 0|1I2!3!4{5I6I718I9 

<scale type): := elf 

<exponent>: := [+|-]<decimal integer) 
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2.6. 3 Isubs 

<"aJln^^\h^,l <lexeme> used only in a <subsoript> of a <base reference> of a 
<defined attribute>. Its semantics are described in paragraph «.3.3.4. 

Syntax : 

<isub>::i <deciraal integer>sub 
Example: 

5sub 

2.6.U Delimiters, Blanks and Comments 

III tilr^t^i%^^' ^^--ithmetio oon3tant>s, and <i3ub>s of an <external procedure) 
are separated from one another by one or more <delimiter>s. 

Syntax : 

I 



<delimiter>: := <graphio delimiter) ! <spaoe> l<comment> 
<macro> I <bit-string constant) 1 
<aharaoter-string constant) I "<picture)" 



<graphic delimiter) : := +1- I » I /I ••! " I ft: I I i | | • : ■ ' f > v i > ni 

_1-_1,1-/.1V|»V|,,, i'-Li' • ' I I ^ I ' I I 1 • I -^1 

I <3pace>::= <blank) Knewline) Ktab) Knewpage) 
<blank>::= ASCII blank character 

<newline>::= ASCII newline character 

<tab>::= ASCII horizontal tab or ASCII vertical tab 

I <newpage>::= ASCII newpage character 

<eomment>::= /• ASCII characters except an asterisk 
followed by a slash »/ 

useras%"<delimiier>°" "" ^^^ ^*"**^ °'" ^ ^ = °"""^"*> "'■ °" ^he number of <space>s 
The higher level syntax rules do not indicate where <spaoe)s, <oomment>s, and 

Mher«"tH-"^TJll^r^,^^l^^'^.J'l!='Al^^^f'•«!^^-«<^ ^-^---^--y t«o <iexe;e)s. 

..-a- __ _,.._„„ . uitrj ^iiuw <,m\j aujduent «. ic BHC II ler ) s . <arithmetic 

constant),, or <isub>s, at least one <space) or <comment) is required to separate 

Examples: 

a+b+7 

do i = 1 to 10; 

do i = 1 to/» upper limit »/lO; 

declare a bit(19),b pointer; 

/• This is a comment »/ 



3/81 2-8 



AC94E 



2.7 Conplle-Time Macros 

<inaoro>::= <inolude niacro>l<page maoro>|<skip maoro> 

2.7.1 Include Macro 

Syntax : 

<include macro>::= %include<space>. . . 

{<identifier>| <character-string constant)} ; 

The compiler replaces each <include aacro> with the contents of the segment 
whose name is formed by appending " .incl.pl 1 " to the <identifiar> or 
<character-3tring constant). The segment is searched for by using the "translator" 
search list, which has a synonym of "trans". (See the add search paths command 
in the MPM Commands and Active Functions manual.) ~ ~ 

The replacement of <include niaoro>s is performed during the application of the 
lexical-level syntax rules and, consequently, has no effect on the high-level 
syntax rules. The replacement is performed from left-to-right. 

After the replacement is performed, the scan resumes at the beginning of the 
included text; therefore, the included text may contain <include macro>s. The 
text that results from the expansion of all <include macros must be a valid 
<external procedure) as described by the syntax rules. Refer to the Multics 
PL/I Reference Manual, Order Ho. AM83 for a discussion of segments and seement 
names. " 

Example: 



declare p pointer; 
linclude T; 
declare f fixed; 

becomes 

declare p pointer; 

declare 1 record, 2 fieldl, 2 field2; 

declare f fixed; 

Where "declare 1 record, 2 fieldl j 2 field2;" is the cor 
name is "T.inol.pll". 
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2.7.2 Page Haero 

Syntax: 

<page macro): := JpageC(<deciinal integer))]; 

The effect of the <page macro) is to continue the listing of the source oroeraa 
on a new page. 

The compiler deletes each <page macro) from the text of the program, so it has 
no effect on the meaning of the program. 

Let N be the value of <decimal integer). If <decimal integer) is not specified, 
let H be 1. The <page macro) inserts H newpage characters into the listing. 
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2.7. 3 Skip Macro 

Syntax : 

<skip maoro>::= %skip[ (<decimal integer>)]; 

The effect of the <skip raaoro> is to continue the listing of the source program 
after inserting one or more blank lines. «""-= prograni 

The compiler deletes each <skip maoro> from the text of the program, so it has 
no effect on the meaning of the program. *.». aui, 3u it nas 

'^ll M K* ^^* Tf^"5 ff <'^6«i"'3l integer>. If <deoimal integer) is not specified, 
let N be 1. The <3kip macro inserts M newline characters into the listing. 
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SECTION 3 
DYNAMIC BEHAVIOR OF A PL/I PROGRAM 



3.1 Flow of Control 

A PL/I program is executed by a processor, or control , that follows a path 
through the program known as the flow of control . 

The program determines the flow of control by the use of <goto statement>s, <if 
statement>s, <call statement>s, <function reference>s, <begin block>s, and 
<group>s. A program cannot control the real time rate at which it is executed 
and it cannot create multiple paths for control to follow simultaneously. 



3.2 A Hultics PL/I Program 

A PL/I program is a set of <external procedure>s and their operating 
environment. The set of <external procedure>s that constitute a program in 
Multics PL/I is dynamically determined by the execution of the program. When an 
<external procedure> , A, is first referenced within a process or run unit, it 
becomes part of the program. Subsequent calls to A, or to any entry of A. 
invoke the <external procedure> incorporated in the program by the first 
reference to A. Refer to the Multics PL/I Reference Manual for a brief 
discussion of Multics dynamic linking and name resolution. 

Throughout this document, a Multics process , exclusive of contained run units, 
is considered to be a single PL/I program and a control. The control begins 
executing the program when the process is created. A process is either in a 
state of execution or is waiting to be executed. A waiting process is blocked . 
The process may be blocked at the discretion of the operating system or as a 
result of explicit calls to Multics procedures. The blocking of a process has 
no effect on the subsequent execution of the process except to delay its 
execution in real time. 

A Multics run unit , which is a separate environment similar to, but contained 

in, a process, is also considered to be a single PL/I program and a control. A 

process may cause a run unit to be activated; its execution resumes upon 
termination of the run unit. 

When a process or run unit terminates, all files opened during its execution, 

and remaining open, are closed, unless termination is due to partial destruction 

of the process or run unit, or unless termination is due to exhaustion of 
process resources. 



7/78 3-1 AG94B 



3 .3 Dynamic Block Structure 



3.3.'' Block Activation 

A <block> is activated when control enters the <block>. It remains active until 
control returns from the <block>. At least one <block> is always active, the 
first one that control entered. Since <block>s may ■ be nested and <procedure>s 
may call each other, several <block>s may be active. The order in which the 
<block>s were activated determines the dynamic relationship between the 
<block>s . 

If control passes from an active <block> A to <block> B, A is said to be the 
dynamic predecessor of B, and B is the dynamic descendent of A. 

A block activation is a given activation of a given <block>. An activation 
record is a unit of storage allocated for a block activation. This — unit o^ 
storage contains information needed by control in order to execute the 
<statement>s in the <block> and is the place where all automatic variables 
declared in the <block> are allocated. Refer to paragraph 4.3.2,2 for a 
discussion of storage allocation for automatic variables. Label, format and 
entry values contain as part of their value a pointer to an activation record 
Refer to- paragraph 4.1 for a discussion of data types. 



3-3.2 Environment of a Block Activation 

Every block activation has a parent pointer. A parent pointer is a pointer to 
an activation record of a <block>'s immediateTy containing <bloGk>. Since 
<external proGedure>s have no containing <block> , their parent pointer is null. 

When control references automatic variables, defined variables, parameters 
label constants, format constants, or entry constants declared in a containing 
<block>, control must know which of several possible activation records of the 
containing <block> it is to reference. The parent pointer of a block activation 
points to the correct activation record of its immediatelv containine <block> 
wnen a reference is made from within a <block> through several containing 
<block>s, the parent pointer of each <block> points to the correct activation 
record of its immediately containing <block>. 



Example: 



procedure; 

declare A fixed automatic; 

declare I entry external static; 

if first invocation then I = Inner: else call E: 

call F; ~ 



Inner: procedure; 
A = A»2; 
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Assume that P calls F, and F calls P, then P calls E, and E calls I. The order 
of block activations is P,F,P,E,I. When I references A, it must select the 
correct activation record of P so that it can reference the correct instance of 
A. In this case, the correct activation record of P is the first activation 
record of P, because it was that activation that created the entry value I bv 
assigning the internal entry constant Inner to I . 

The parent pointer of an activation of a <begin block>, other than <beEin 
block>s used as <on unit>s, is a pointer to the most recent activation record of 
the <block> that immediately contains the<begin block>. Because a <besin 
block> cannot be invoked except by the <block> which immediately contains it 
the activation record pointed to by the parent oointer is also the ^-nmed^-ate 
dynamic predecessor of the <begin block> activation. "* *" '^^^'"^'^ 

The parent pointer of a <procedure> block activation is the activation -ecord 
pointer part of the entry value used to invoke the procedure. .Refer to 
paragraph 4.1.11 for a discussion of entry data. 

The parent pointer of an activation of an <on unit> is a pointe'- to the 
activation record of the block activation that established the <on unit>. See 
paragraph 3.6.3 for a discussion of <on unit>s and the flow of control 
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3.4 Flow of Control Within aBlock J.ctivation 

The flow of control within a block activation proceeds from <3tatement> to 
^statement> in the order in which the <3tatement>s appear in the text of the 
<block>, except as influenced by actions of a <statement>. 

The order in which the components of a <3tatement> are evaluated is defined in 
Section 12 where the syntax and semantics of each type of <statement> are 
defined. The order of evaluation of <expre33ion>s is given in Section 7. 

The flow of control within a <group> is specified by the <do statement> which 
begins the <group> and by <3tateraent>s within the <group>. 

A <goto statement> transfers control to any labeled <statement> within the 
<block> by referencing a name declared by a <label prefix> appearing on any 
<statement>, other than a <format statenient>, <entry statement>. or <procedure 
statement>, within the <block>. ^proceaure 

A <goto statement> also transfers control to a <stateraent> within the current 
block activation if it references a label variable or label-valued function that 
Identifies a <statement> within the <block>, but only if the activation record 
pointer part of the label value points to the current block activation record 
Refer to paragraph 4.1 for a discussion of data types 



3.5 Local and Nonlocal Goto Statements 

A <goto statement> that transfers control to another <statement> within the same 
block activation is known as a local goto. A <goto statement> that transfers 
control to a <statement> in a dynimically preceding block activation is a 
"""t"*^,^^ Soto. It is an error for a <goto statement> to attempt to transfer 
control to a <statement> within an inactive <block>. 



3.6 I nter -Block Flow of Control 



3.5,1 Begin Blocks 

Control enters a <begin block> by passing through the <begin statement> which 
heads the <block>. Control returns from a <begin block> by passing through the 
<end statement> that terminates the <block>, or by the execution of a "return 
statement> or a nonlocal goto. A <begin block> cannot be invoked by <function 
reference>s or <call statement>s. A <label prefix> on a <begin statement> 
defines a label constant, not an entry constant. 

When control returns from a <begin block> by execution of the <end statement> 
it returns to the dynamically preceding <block>; which is always the <block> 
immediately containing the <begin block>. Execution continues with the 
<statement> following the <end statement>. 



If a <return 3tatement> within a <begin block> is executed, it returns con 
to the dynamic predecessor of the most recent <procedure> block activation. 



trol 
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Example: 

X: procedure; 
begin; 

begin; 
return ; 
end; 
end ; 
end; 

Execution of the <return statement> in this example returns control to the block 
activation that invoked X, 



3.5.2 Procedures 

Control enters a <prooedure> when one of its entries is invoked by a <function 
reference> or <Gall statement>. Control returns from the <procedure> by the 
execution of a <return statement>, the execution of the <end statement> which 
terminates the <block>, or by the execution of a nonlocal goto. 

Execution of the <statement> which invoked the <procedure> is incomplete if the 
<procedure> returns via a nonlocal goto. Such incomplete executions are in 
error only if the invocation resulted from the evaluation of an <initial 
attribute> or <extent expression> of an automatic or defined variable, and only 
if control returned to the <block> in which the variable was declared. Refer to 
paragraph 4.3.2. 

A <procedure> invoked as a subroutine by a <call statement> cannot return 
control by the execution of a <return statement> that contains a <return value>. 

A <procedure> invoked as a function by a <function reference> must return 
control by the execution of a <return statement> containing a <return value>, or 
it must return by the execution of a nonlocal goto. 

If control reaches a <proGedure statement>, except as a result of an invocation 
of the <procedure>, it passes around the <procedure> and continues with the 
execution of the <statement> followins the <Drocedure>. 



3.6.3 On units 

Syntax : 

I <on statement>: : = [<prefix> ]on<condition list>[snap] <on unit> 

<on unit>::= <begin block> Kindependent statement> I system; 

I <condition list>::= <condition name>[ ,<condition name>]... 

The execution of an <on statement> causes the <on unit> to be established , but 
does not cause execution of the <on unit>. An established <on unit> is 
associated with the block activation that contains the <on statement>. 



I 



Control enters an established <on unit> when one of the conditions identified by 
the condition list is signalled . A condition is signalled by the execution of a 
<signal statement> or by detection of the condition during program execution. 

Control returns from an <on unit> by the execution of a nonlocal goto or when 
control reaches the end of the <on unit>. An <on unit> consisting of an 
<independent statement> behaves as if it were a <blook>, and the execution of an 
<on unit> is effectively a block activation. The parent pointer of an 
activation of an <on unit> is a pointer to the activation record of the block 
activation that established the <on unit>. A complete discussion of conditions 
is given in Section 10. 
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SECTION U 
DATA OF PL/I 



4. 1 Data Types 



4.1.1 Representation of Data 

Each value is a member of only one set of values called its data type . The data 
type of a value determines how that value is stored within the computer, and 
determines which operations can be performed on the value. 

The internal representation of data is not defined by the language and no 
feature of the language, except the "unspec" and nonstandard Multics built-in 
functions, depend on it. Refer to the Multics PL/I Reference Manual, 
Order No. AM83, and to the MPM Reference Guide, Order No. AG91, for a 
description of the internal representation of PL/I data. 

Only arithmetic and string values have an external character-string 
representation defined by PL/I. The external representation of arithmetic and 
string data is a string of characters formed according to the syntax rules given 
in paragraph 2.6.2 for <literaL constant>s, or produced by arithmetic to 
char acter — str in*'' conversion as described in S'*c*"'^'^r ^ 



Constant: 



A constant is a value that cannot change during program execution. A constant 
is either a <literal constant> or a named constant. A <literal constant> is a 
constant whose lexigraphical representation in the text of an <external 
procedure> denotes its value. <bit-string constant>s, <character-string 
constant>3, and <arithmetic constant>3 are <literal constant>s and are defined 
inparagraph 2.6.2. A named constant is a constant whose value is represented 
in the text of an <external procedure> by a <referenGe> to a <declared name> 
declared with the <constant attribute>. Label, format, entry, and file 
constants are named constants. Refer to Section 5 for a discussion of 
declarations. 



4.1.3 Variables 

A variable is a named object capable of representing different values all having 
the same data type. Because variables are restricted to representing values of 
a given data type, they are characterized by their data type and are referred to 
as: bit-string variables, fixed-point variables, etc. 

Since values are stored in variables, a variable must own sufficient storage to 
contain any value that it may represent. A variable's storage is its generation 
of storage . Section 4.3,2 describes how storage is allocated for variables. 
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4.1.4 - Data Types of Expressions and Functions 

Although <literal constant>s and <reference>s are simple forms of <expre3sion>s, 

throughout this section we will use expression to denote either an infix 
expression or a prefix expression as described in Section 7- 

Expressions and functions are restricted to computing values of a given data 
type. 

The data type of the values of an expression is determined by the rules of 
expression evaluation given in Section 7 and by the rules of data type 
conversion given in Section 8. The data type of the values returned by a 
function is determined by the <returns attribute> specified in the declaration 
of the function. In the following sections, functions are described as having a 
data type. This is a convenient way of referring to the data type of the values 
returned by the function. Refer to Section 5 for a discussion of declarations. 



4.1.5 Arithmetic Data 

An arithmetic value is either a fixed-point value or a floating-point value. 
The data type of an arithmetic value is completely specified by four properties: 
The mode . which may be complex or real, the base . which may be binary or 
decimal, the type , which may be fixed-point or floating-point, and the 
precision . 

The precision of a fixed-point value is (p,q), where p is the total number of 
binary or decimal digits in the number, and q is a scale factor giving the 
location of the implied decimal or binary point. A positive scale factor means 
that the point is located q places to the left of the rightmost digit. A 
negative scale factor means that the point is located q places to the right of 
the rightmost digit. Thus, a fixed-point value can be considered to be the 
implied product of an integer of p digits times b»*-q, where b is the base of 
the value, ( 10 or 2) . 

The precision of a floating-point value is (p), where p is the minimum number of 
binary or, decimal digits that are to be maintained in the mantissa. A 
floating-point value consists of a mantissa and an exponent. In Multics PL/I, a 
binary floating-point value has a mantissa that is a binary fraction, f, whose 
absolute value is (1/2)<f<1 or is zero, and whose exponent, e, is an integer 
whose value is -12b<.e<127. The binary floating-point value is f*2**e. A 
decimal floating-point value has a mantissa that is an integer, ra, whose value 
is in the range +{ ( 10**p)-1 ) , and an exponent, e, that is an integer whose value 
is -I2&<.e<.127 • The decimal floating-point value, is m*10**e. 

In Multics PL/I, the precision of floating-point binary data is restricted to no 
more than 63 binary digits. The precision of fixed-point binary data is 
restricted to no more than 71 binary digits, and the precision of decimal data, 
either fixed-point or floating-point, is restricted to no more than 59 decimal 
digits. The scale factor is restricted to -12b<.q<.127 - 

When necessary to avoid loss of significant digits, a decimal floating-point 
value is normalized such that the most significant digit of the mantissa is 
nonzero. A binary floating-point value is always normalized as a binary 
fraction whose most significant digit is nonzero, unless the entire value is 
zero. The overflow condition occurs when a computation or conversion develops a 
floating-point value whose exponent exceeds 127, and the underflow condition 
occurs when a computation or conversion develops a floating-point value whose 
exponent is less than -128. Refer to Section 10 for a discussion of conditions. 

The rules of PL/I arithmetic are such that computations on fixed-point values 
produce true arithmetic results, except for fixed-point division which truncates 
low order digits. Computations on floating-point values produce floating-point 
results ■ that "reserve at- ' least the most significant p digits of the true 
arithmetic result. Refer to Section 7 for a discussion of PL/I arithmetic. 
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Arithmetic variables and arithmetic-valued functions are declared with the <fixed 
a <r?."i ^^.r -1*";^^^°"' attribute>, a <binary attribute> or a "decimal attributed 
d%so';?b'ed1n""secUon T. " '^"""'''^ attribute>, and a <preci3io„ attribute^as 



1.1.6 String Data 

A 1^^ value is either a bit-string value or a character-string value A 
of'Alcn"^SLrs." "''"="" °' ''''' ^""^ ^ ^''aracter-string value il a^se^cVence 

The number of characters or bits In the value is the current lensth of th^ 
string value. A bit-string value with no bits is a n ull bit -ilFfli a"d a 
character-string value with no characters is. a null chara-^tiP- string . 

A string expression or string-valued function can yield string values whoa*, 
lengths differ each time the expression or function is evaluatedf The value H 
either always a bit-string or always a character-string. 

fri"?^ ''^r^'^V'' ,^°"®^«'"' ^^"^ a "aximum length that is determined when storage 
\w^^°v°u''^'' ^°'" ^^^ variable. A nonpictUFiditring variable is declared wlfh 
either the <varying attribute> or the <nonvarying attributed These <attribu?e>s 
determine the way that string values are assigned to string variables Strang 
variables and string-valued functions are declared with either the <bitatiribute> 
<character attribute> or <picture attribute> as described in Section 5. ' 

A variable declared with a <picture attribute> is a pictured character-string 
variable. It differs from nonpictured character-strii?g-^Fi?!lb ieroniy fn the 
?f,n.t?.^«"!f f * assigned to it and in the way Its values are converted I 
function declared to return a pictured value returns a character-string value 
That value differs from other character-string values only in the way it !s 
Characters. "''" °' ' '"°'"'""' character-string value can not ex'ceed st 

1^1^"^^^° ^"j^^"" ! fo"" a discussion of conversion. Refer to paragraph 2 5 2 1 
for the syntax of a <bit-string constant> and to paragraph 2.6.2 2 for the 
syntax of a <oharacter-string oonstant>. ^ <-'0,^.^ tor the 



4.1.7 Locator Data 

A locator value identifies a generation of storage of a variable. A locator is 
L"^ ?f?rt.^°U^:*„?^A""."':ii?.^^^f-?,". 1 -Chine address!- A^locat^Srcan 




fri-H°^*'%'".,A°^*' i'^^ validity When the generation of storage it identifies is 
freed. Such locators do not automatically receive the null locator value. 

It is an error to use an invalid or null locator as a <locator gualifier> in a 
aoc'lL^r^^al'^^i^ed^rrf^rJn^c-eVs"^- '^'^ '° ^^"^^^^ '■' ^^ a^ dL-s"on^"o? 

A locator datum has no <literal constant) representation in the text of an 
function' '""°"<'"'-«>' ""•^ t^« ""11 l°°ator value is returned by the null built-?" 

There are two types of locator data in PL/I: pointer data and offset data. 
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\.2°^"'^*'" ^^^"* identifies a generation of storage within any storage class. In 
addition to the situations described previously in this section, a pointer value 

|^?^u"^^ "*'«" it is used as a <locator qualifier) or in a comparison operation 
Hithin a process other than the process that created it. If a pointer value is 
created within a run unit, it may only be used within that run unit. 

An offset value identifies the storage generation of a based variable allocated 
within an area variable. An offset value is a relative locator value identifying 
the generation of storage with respect to the area variable in which the generation 
is allocated. 

I An offset value is valid when used in any Multios process or run unit that also 
has valid access to the area variable. 

Locator variables and locator-valued functions are declared with the <pointer 
attribute) or <offset attribute) as described In Section 5. 



1.1.8 Area Data 

An area value is a generation of storage in which based variables can be dynamically 
allocated by the execution of an <allooate statement). In Multlcs PL/I, an area 
has a size that is the number of 36-bit words occupied by the generation. The 
amount of space available within an area in Multlcs PL/I and the amount occupied 
}',^.f^'^}' generation allocated within an area are given in the MPH Subsystem 
Writer's Guide. 

Areas maintain their validity when accessed in a Multios process other than the 
process In which they were created. In order for the process to access the 
generations allocated within an area, offset locator values must be used because 
pointer values are invalid when used in a process other than the process that 
created them. 

Area variables and area-valued functions are declared with an <area attribute) 
as described In Section 5. 



'4.1.9 Label Data 

A label constant identifies a Otatement) within the text of an <external procedure). 

An <identifier> is declared as the name of a label constant by appearing as a 
<deolared name) in a <label prefix) on any <statement) other than an <entry 
statement), <proeedure statement) or <format statement). Refer to Section 5 for 
a discussion of declarations. 

a label constant Is transformed into a label value each time it is referenced 
during program execution. A label value is, therefore, always derived from a 
label constant. A label value identifies the same <statement) as the label 
constant from which it was derived, but it also points to an activation record. 
The activation record pointed to by a label value is determined when the label 
constant is transformed into a label value. 

When a label constant is transformed into a label value by the evaluation of a 

<referenoe> in the sane <blpck> in which the label constant is declared, the 

activation record pointer assigned to the label value points to the activation 
record of the current block activation. 



7/78 11-4 



AG9KB 



rfhen a label constant is transformed into a label value by the evaluation of a 
<reference> xn a <block> contained within the <block> in which the label 
constant is declared, the activation record pointer assigned to the label value 
points to the first activation record of the declaring <bloGk> found by 
ro^lowing the parent pointer of the block activation making the transformation 
Refer to paragraph 3-3 for a discussion of block activation and the parent 

fuj^^?^ Y^f"® retains its validity only as long as the block activation record 
that It points to remains active. It is an error to reference a label value 
tnat has lost its validity. 

Both the <statenient> identification and the activation record pointer values of 
a label value are used in label value comparison. Two label values compare 
equal only if they identify the same <statement> and the same activation record 



Label variables and label-valued functions are declared 
attribute> as described in Section 5. 



with the <label 



4.1.10 Format Data 



A format constant identifies a 
<gxternal proQedure>. 



<format statement> within the text of 



an 



An <identifier> is declared as the name of a format constant by appearing as a 
<declared name> in a <label prefix> on a <format statement>. Refer to Section 5 
for a discussion of declarations. oct.uj.uij z> 

LiZT^J'T^^^''^ ^^ transformed into a larmai. vaias each time it is referenced 
f'Sl^f program execution. A format value is, therefore, always derived from a 
format constant A format value identifies the same <format statement> 
identified by the format constant from which it was derived, but it also points 
to an activation record. The activation record pointed to by a format value is 



derived in the same manner as that of 



A format value retains its validity only as long as the activation record that 
has^lost it° r"?d?^ active. It is an error to reference a format value that 

Both the <statement> identification and the activation record pointer values of 
a format value are used in format value comparison. Two format values compare 
equal only if they identify the same <3tatement> and the same activation record 



Format variables and format-valued 
attribute> as described in Section 5. 



functions are declared with the <format 



4.1.11 Entry Data 

An eatrx constant identifies an entry point to a <procedure>. An external entry 
constant identifies an entry point of an <external procedure> and an internal 
entry constant identifies an entry point of a nested <procedure>. 

An <identifier> is declared as the name of an entry constant by appearing as a 
<deGlared name> in a <label prefix> on an <entry statement> or <proledure 
3tatement>. External entry constants that identify entry points into other 
<external procedure>s must be declared by a <declare statement>. 
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An entry constant is transformed into an entry value each time it is referenced 
during program execution. An entry value is, therefore, always derived from an 
entry constant. An entry value identifies the same entry point as the entry 
constant from which it was derived, but it also points to an activation record. 
If the entry value identifies an external entry point the activation record 
pointer is null. If the entry value identifies an. internal entry point the 
activation record pointer is determined when the entry constant is transformed 
into the entry value. 

When an internal entry constant is transformed into an entry value by the 
evaluation of a reference in the same <block> in which the entry constant is 
declared, the activation record pointer assigned to the entry value points to 
the activation record of the current block activation. 

When an internal entry constant is transformed into an entry value by the 
evaluation of a <reference> in a <blocic> contained within the <block> in which 
the constant is declared, the activation record pointer assigned to the entry 
value points to the first activation record of the declaring <block> found by 
following the parent pointer of the block activation making the transformation. 
Refer to paragraph 3.3 for a discussion of block activation and parent pointer. 

It is an error to invoke an internal <procedure> with an entry value that points 
to an activation record that has been freed. The most common circumstance in 
which this occurs is when an internal entry constant is assigned to an entry 
variable by an activation of the <block> in which the entry constant was 
declared, and control returns from the block activation that made the 
assignment. Subsequent use of the entry variable to invoke the internal entry 
is an error because the activation record pointed to by the entry value was 
freed by the return. 

Both the entry point and the activation record pointer values of an entry value 
participate in entry value comparison. Two entry values compare equal only if 
they identify the same entry point and the same activation record. 

External entry constants, entry variables and entry-valued functions are 
declared with the <entry attribute> as described in Section 5. 



4.1.12 File Data 

A file value identifies a file-state block. A file constant always identifies 
the same file-state block, but a file variable can identify any file-state 
block. A file-state block is a composite value that defines the relationship 
between the program and a data set. 

A program has as many file-state blocks as it has file constants. A file value 
can be assigned to a file variable and functions can return file values. File 
description attributes can only be declared for file constants because they are 
properties of the file-state block and not properties of the file value. 

A file-state block includes: 

1. File description attributes. 

2. The open/closed status. 

3. Line size. 

4. Page size. 

5. Page number and line number. 

6. The column position. 

7. Record designators and stream position. 

8. A data set designator (title). 

The components of a file-state block may change during program execution as the 
relationship between the program and the data set changes . 
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A file-state block identifies a data set by the value of the title or H»i-a ,»^ 

iVe'rnTik c?os:d'"%J'-"' "'^" ? '''' '' opened and'reiaLs'Johangef on ! 
the file IS closed. It is possible for a given file-state block to identifv 

=Hacu,=i„„ of input/output and a „or, detailsd d^orlption Sf nu^sLJ^ blooks 

'♦•S Aggregates of Data 




l!a?ues.'°"''^"''' ''^'•i^'^^^^' functions, and expressions can have aggregate 

The data type of an aggregate value is the ordered set of data tvoes of it^ 

or'?;nc??Sr:alu; SMFtei ^^'- ^" ''J'^'^'' vanableMmeJ^^nstai 
ur lunction value is the dimensionality and arrav-extent<5 ^snBoif-i-w h„ t-t,! 

i?;raJ?:n^"The"'<le::?>f ^ structuring specif i^S^Sy'JSraevJL^rusel n^ U 
.rr^vlfv.""; .?!.Ji^!!^^^ .^r* adjusted SO that they are minimal and 



eacn 



arrav-(ixff.nt i <; <i-!„^« w„ u r i iT "^ — , ' ^ ''"''J' ^^^^ minimai and « 

<bound> Se fir to ILtLn ^ r> ''^h^^ ^ '" '^^ ^°"^'" <'^°""<1> and H is the upper 

^Douna>. Keter to Section 5 for a discussion of <level>s and <bound>s. 

The aggregate type of an expression is the dimensionality, array-extents and 

^nd hv^^w"^ determined by the rules of expression evaluation gIvJn !n IScJion ? 

and by the rules of aggregate promotion given in Section 9. lection 7 

The aggregate type of a <reference> to a structure variable contained in an 

<assignment statement> containing a <bv-naine nntinn^ h..^ ! °°ntained in an 



'♦•2.1 Arrays of Scalars 

samFiSa^vol^^^ '^.f? n-dimensional set of scalar values that all have the 
Snd a?e iStifiS hv fi <^oniPonents of an array are elements of the array, 

r; % ''■"'" '^™"' °-"---""»"" -rill iFjmmi.Ji 

Iw/ilaSf ?hat '^fZlZ.":', "?"" " " °^'"'-"' "■5"»"« in row-.a.lor order. 
.V;LJ J! that when the elements are accessed in the order i n uhich t hi7~iF^ 

Named constants, variables, functions, and expressions can have arrav of 
scalars as values. Only named constants and variablelcaS be subscripted!'" 
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The array-extent of each dimension of an array variable is determined wh*»n 



..ruble «„.t have the ,a». aggregate ty^Ja. the .i? awi thir I "ermS? 

All array values yielded by a given expression or function have the same number 

?Jorssries;uatlL^lo^ ?hr;;^?!^"^ °^ -=^ ^^"^"-- -- ^^ ----- -aS^^; 
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^■2.2 Structures 

A structure is a hierarchically ordered set of 'scalar ar.d aggregate values that 
do not necessarily have the same data type. The immediate components of a 
structure are members of the structure and are ordered from left to ri^ht The 
outermost structure is the major structure . and nested structures' are 
substructures . 

Variables, functions, and expressions can have structure values, but only the 
menbers of variables can be referenced by name. Members of structure variables 
are referenced by <struoture qualified reference>s as described in paragraph 

The hierarchical order of a structure variable or function value is specified "by 
means of <level>s similar to the section numbers used in this manual The 
outermost structure is known as the level-one structure, its members are known 
as level-two members. If one of the level-two members is a substructure its 
members are level-three members, etc. 

All structure values assigned to a structure variable must have the same 
aggregate type as the variable. All structure values yielded by a given 
expression or function have the same aggregate type, except that the 
array-extent of each dimension may, in some cases, change from one evaluation to 
the next . 



^.2.3 Arrays of Structures 

An array of structures is an n-dimensional set of structure values each of which 
has Identical structuring and identical data types. The elements of an array of 
structures are known by their position within the array and are referenced with 
subscripts as are elements of arrays of scalars. Like the elements of an array 
of scalars, the elements of an array of structures are stored in row-ma ior 
order. ■^ 

Variables, functions, and expressions can have arrays of structures as values 
Only the elements of variables can be subscripted. 

All array of structure values yielded by a given expression or function have the 
same aggregate type, except that the array-extent of each dimension may, in some 
cases, change from one evaluation to the next. 



'<.3 Storage of Data 



^^•3.1 Packine and Alignment of Variables 

The <aligned attribute> and the <unaligned attribute> are declared for scalar 
and aggregate variables as described in Section 5. The precise effect of the 
<aligned attribute> and the <unaligned attribute> on the packing and alignment 
of a variable's values in storage is not defined by the language, but the rules 
governing the use of these <attribute>s are designed to ensure that programs 
using them will run correctly in different implementations of PL/I on different 
computers. In the discussion that follows the effects of these <attribute>s on 
the packing of data in Multics PL/I are described. 

Packed and unpacked are terms that describe the representation of values and the 
efficiency of access of values. Packed and. unpacked are not <attribute>s and 
cannot be used in declarations. 
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An arithmetic, nonvarying string, or pointer variable declared with the 
<unaligned attribute> is a packed scalar variable . An aggregate variable 
consisting entirely of packed scalar and packed aggregate variables and declared 
with the <unaligned attribute> is a packed aggregate variable . 

An arithmetic, nonvarying string, or pointer variable declared with the <aligned 
attribute> is an unpacked scalar variable . Varying string, offset, entry, 
label, file and area variables are unpacked scalar variables regardless of which 
alignment attribute they are declared with. 

An aggregate variable containing an unpacked scalar or unpacked aggregate 
variable, or an aggregate variable declared with the <aligned attribute> is an 
unpacked aggregate variable . Therefore, an unpacked structure can contain both 
packed and unpacked members, but a packed structure consists entirely of packed 
members . 

'*.3.1.1 Packing and Alignment of Scalar Variables 

A packed scalar variable occupies the minimum number of bits necessary to 
represent its values. If a packed scaler variable is declared with the 
<unsigned attribute>, no storage is used to store its sign. An unpacked scalar 
variable is stored in such a way as to facilitate access to its values. In 
Multics PL/I, unpacked variables are aligned on word or multiple-word 
boundaries, and occupy an integral number of words. 

Example: 

declare A fixed binary precision(8) unaligned; 

declare B pointer unaligned; 

declare C fixed binary(38) aligned; 

declare D pointer aligned; 

In Multics PL/I, both A and B are packed scalar variables. A occupies 9 bits of 
storage and B occupies 36 bits. Both C and D are unpacked scalar variables, 
each occupies 2 words of storage and each is aligned on an even storage address! 

'^.S-l.S Packing and Alignment of Structures 

A packed structure, which is not a packed array of structures, contains no 
unused bits between its members except those bits necessary to make 
character-string, decimal arithmetic, or pictured values begin on 9-bit byte 
storage boundaries. A packed structure is aligned on a 9-bit byte storage 
boundary if any of its members are so aligned. 

An unpacked member of a structure is aligned on a storage boundary that 
facilitates access to the member and occupies an integral number of words of 
storage. An unpacked structure is aligned on a storage boundary that is the 
maximum boundary required by any of its members and occupies an integral number 
of words. A packed member of a structure begins on the next bit or 9-bit byte 
following the previous member. 

Example: 

declare 1 S, 

2 A bit(6) unaligned, 

2 B characterO) unaligned, 

2 C bit(8) aligned, 

2 D bitdS) unaligned; 

In Multics PL/r, S is an unpacked structure because it contains an unpacked 
member C. S occupies 90 bits of three words; the first 6 are occupied by A, the 
next 3 are unused, the next 27 are occupied by B, the next 36 are occupied by C, 
and the last 18 are occupied by D. The remaining bits of the third word are 
unused. 
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't-B.I.S Packing and Alignment of Arrays 

A member of a dimensioned structure is an array whose dimensionality is that 
given by its own <dimenslon attribute>, if it has one, and that supplied by the 
<dimension attribute>s of all containing structures. If a dimensioned structure 
contains more than one member at the same structuring level, those members are 
interleaved arrays because the storage for their elements is interleaved. 

Example : 

declare 1 S(3) ,2 A, 2 B; 
The elements of A and B are interleaved as follows: 

A(1) B(1) A(2) 8(2) A(3) 8(3) 



An unconnecJted array is an array whose elements are separated from one another 
in storage by other values. An interleaved array is an unconnected array A 
defined array, a parameter array and an array cross-section may also be 
unconnected arrays. Isub defining is discussed in paragraph 4 3 3 4 and 
cross-paragraph references are described in paragraph 6.3. 

Example : 

declare A(3,3) ; 

declare 8(3) defined(A( Isub, 1 sub) ) ; 

The array cross-section A(»,2) and the defined array B are both unconnected 
arrays because their elements are separated from each other by other elements of 
the array A. 

A connected array is an array whose elements are not separated from one another 
in storage by other values. A connected array of packed scalar elements 
contains no unused storage bits between its elements. 

Example: 

declare A(5) character(2) unaligned; 



. _ n? /I 



X.. r.«iOiv-c ru/i ^iic array h is a pacKeo connected array and occupies 90 bits of 
storage. 

A connected array of packed structures contains no unused storage between its 
elements except those bits necessary to make character-string, decimal 
arithmetic, and pictured values begin on 9-bit byte storage boundaries. 

A packed unconnected array of scalars contains no unused storage between its 
elements, except the storage occupied by the other variables. 

A packed unconnected array of structures contains no unused storage between 

elements, except for the storage occupied by other variables and the storage 

necessary to ensure that contained character-string, decimal arithmetic, and 
pictured variables begin on 9-bit byte boundaries. 

An element of an unpacked array of scalars or structures begins on a storage 
boundary that facilitates access to the element and occupies an integral number 
of words of storage. 
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^.3.1.4 Sign Types 

Real arithmetic data may be stored in variables with or without a s^ Tn Tv,e 
sign t2£e Of a variable determines whether or not it includes a sign7"if the 
variable is declared with the <unsigned attribute>, its sign type il unsigned 
otherwise, if the variable is arithmetic, its sign type is signed. If th e 
variable IS not arithmetic, it has no sign type. The sign typi^^ variabVj 
ciiects the amount oi storage it occupies only if it is packed. 
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^•3.2 Storage Classes 

'+.3.2. 1 Allocation of Storage 



A generation of storage is an ordered sequence of bits of sufficient length tc 
represent all of the values within the range permitted by a variable's dat; 
type. Each variable is declared with one of the following storage clas= 



■.a 

_is stor*32S cias^ 

attributes: the <automatic attribute>, <static attribute>/'<based — attributeT" 
<controlled attribute>, <paramet.er attribute>, or <defined attribute> as 
described in Section 5. 



A storage class is a mechanism for allocating and freeing generations of storage 
for a variable. Because each variable has a single storage class, variables are 
characterized by their storage class and are referred to as: automatic 
variables, based variables, etc. 

Components of a structure are allocated when their containing major structure is 
allocated. A generation of storage for a structure variable contains a 
generation of storage for each of its members. A generation of storage for a 
component of a structure is freed only when the storage of its containing ma ior 
structure is freed. 

The allocation of a generation of storage for a variable consists of performing 
the following steps in the indicated order. 

1. Evaluate each <extent expression> specified in the variable's declaration 
and convert its value to a real, fixed-point, binary, integer. 

2. Determine the amount of storage required by examining the data type, sign 
type, alignment <attribute>s , and the evaluated extents from step 1. 

3. Allocate a generation of storage of sufficient size. If the variable being 

= - -- "-- --xBv^, <a.iouv.j.auc i^iic ijcwiy dxiOcatea generation with the 

name of the variable. If the variable being allocated is based, assign a 
locator value that identifies the newly allocated generation to the locator 
variable given by the <set option> of the <statement> that caused this 
allocation to occur. 

4. If the variable is an area, set it to the empty state. 

5. If the variable being allocated is based, assign each evaluated extent to 
the variable identified by its <refer option>, if it has one. 

6. Evaluate each <initial attribute> specified in the variabl&'s declaration 
and assign initial values to the newly allocated generation. 



4.3.2.2 Automatic Storage 

A generation of storage is allocated for each automatic variable declared in a 
given <block> each time the <blocic> is activated. The generation is allocated 
in the block activation record as described in paragraph 3.3.1. The block 
activation record is freed when the block activation for which it was allocated 
13 deactivated. Recursive activation of a <block> has the effect of stacking 
generations of the <block>'s automatic variables. 

The <extent expression>s and <initial attribute>s of an automatic variable can 
contain <expression>s whose values are computable upon block activation. A 
value IS computable upon block activation if it can be computed without 
referencing any automatic or defined variable declared in the <block> 
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The <extent expression>3 are evaluated and stored in the activation record. 
Subsequent references to the generation of the automatic variable use these 
evaluated extents. 



4.3.2.3 Static Storage 

A single generation of storage is allocated for each static variable at or 

before the time that the variable is first referenced within the process or run 

unit. The generation remains allocated until termination of the process or run 
unit . 

Static variables must have constant <extent expression>3 and <initial 
attribute>s because they may be allocated prior to block activation. 

Internal static variables are variables whose scope has been declared internal 
by the use of an <internal attribute>. Multics PL/I allocates these variables 
at compile time. 

External static variables are variables whose scope has been declared external 
by the use of an <external attribute>. External static variables are allocated 
when they are first referenced within a process or run unit. Refer to Section 5 
for a discussion of scope, and to the Multics PL/I Reference Manual for a 
discussion of external storage allocation. 



4.3.2.4 Controlled Storage 

A generation of storage is allocated for a controlled variable when an <allocate 
statement> containing an <allocation> containing an <allocation reference> that 
identifies the controlled variable is executed. The generation is allocated in 
"system storage". Refer to paragraph 12.1. 

The most recently allocated generation of a <free reference> that identifies the 
controlled variable is executed. All generations of controlled storage not 
explicitly freed by the execution of a <free statement.^ are freed u"cn process 
I or run unit termination. Refer to paragraph 12.13. 

The <extent expression>s and <initial attribute>s of a controlled variable can 
contain <expression>s whose values are computable without depending on any value 
of the same controlled variable. No <extent expression> or <initial attribute> 
of any member of a controlled structure can depend on the value of any scalar 
component of the same major structure. 

The evaluated extents used to allocate a given generation of a controlled 
variable are saved with the generation. These extents are used whenever a 
reference is made to the generation. The <extent expression> specified in the 
variable's declaration are not reevaluated for each reference to the controlled 
variable. If multiple generations are allocated for a given variable, they are 
stacked such that a reference to the controlled variable always references the 
most recently allocated generation. When that generation is freed, the next 
most recently allocated generation becomes the current generation. 



4.3.2.5 Based Storage 

A generation of storage is allocated for a based variable when an <allocate 
statement> containing an <allocation> containing an <allocation reference> that 
identifies the based variable is executed. If the <allocation> contains an <in 
option> or derived <in option>, the generation is .allocated in the storage of 
the area variable specified by the <ln option>; otherwise the generation is 
allocated in "system storage". Refer to paragraph 12.1. 
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A generation of an explicitly allocated based variable is freed when a <free 
statement> containing a <freeing> containing a <free reference> containing a 
<locator qualifier> that identifies the generation is executed. Freeing the 
storage of an area frees the storage of all generations allocated within the 
area. Generations of based storage allocated within "system storage" and not 
explicitly freed by the execution of a <free statement> are freed upon process 
or run unit termination. Refer to section 12.13. 

The program is in error if the generation identified by the <locator qualifier> 
contained in the <freeing> contained in the <free statement> used to free the 
generation was not allocated by the execution of an <allocate statement> 
containing an <aHocation> containing an <allocation reference> that identified 
a based variable of identical aggregate type, data type, sign type, alignment, 
and extents. 

The program is also in error if the generation being freed was allocated in an 
area and the <freeing> contains an <in option> that does not specify the same 
area. Similarly, the program is in error if the generation was allocated in 
"system storage" and the <freeing> contains an <in option>. 

A based variable is a description of a generation of storage, but no generation 
is ever directly associated with the name of the based variable. The specific 
generation of storage accessed by a <reference> to a based variable is specified 
by a locator-valued <expression> used as a <locator qualifier> in a <locator 
qualified reference>. Refer to paragraph 6.6. 

Syntax: 

<locator qualified reference> : : = <locator qualifier>-> 
<based reference> ~ 

Example: 

P->R 

P identifies a eeneratinn nf <!i-ni-atio ijhr\oa ho*-o f-,,r»^ 5-; ^_ t,.__ _i.-_, _4. 

- - w' -- -.-Qw „..-..,w ^ava ojpc. Sign uypc, dXJ. griment , 

extents, and aggregate type are described by R. 

If the value of P was derived from the evaluation of an "addr" or nonstandard 
Multics built-m function, the generation is an equiv alenced based generation. 
Refer to paragraph 4.3.3.2. 

If the value of P was derived from the execution of an <allocate statement>, 
<locate statement>, or <read stateraent> containing a <set option>, the 
generation is an explicitly allocated based generation . Refer to paragraph 

Equivalenced based generations are freed when the generation to which they are 
equivalenced is freed. Explicitly allocated based generations are freed as 
described in paragraph 4.3.2.1, 

The <extent expression>s in the declaration of a based variable are evaluated 
for each <reference> to the based variable. It is the programmer's 
responsibility to ensure that these <extent expression>s accurately describe the 
extents of the generation referenced by the based variable. 

The <extent expression>s and <initial attribute>s of a based variable can 
contain <expression>s whose values are computable without depending on any 
values of the same generation of the based variable. No <extent expression> or 
<initial attribute> of any member of a based structure can depend on the value 
of any scalar component of the same major structure generation, except for the 
dependencies expressed by a <refer option>. 

The <refer option> allows the extent value used by references to the based 
variable to be defined by the generation being referenced. The <refer option> 
can only be used in the <extent expression>s of members of based structures. 
Such structures are self-defined structures. 
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Syntax: 

<extent expression> : : = <expression>[<refer option>] 

<refer option>::= ref er(<ref erence>) 
Constraints: 

Evaluation of the <expression> must yield a scalar value suitable for conversion 
to a fixed-point, binary, real integer. It must also be suitable for conversion 
to the data type of the variable identified by the <reference> in the <refer 
option> . 

The <reference> in the <refer option> must identify a preceding scalar component 
of the same major structure that contains the <refer option>. 

The variable ^identified by the <reference> in the <refer option> must not be 
dimensioned, and thus cannot have any inherited dimensions. 

The <reference> in the <refer option> cannot be a <locator qualified reference>. 
Example : 

declare 1 S based, 
2 K fixed, 
2 A charCN refer(S.K)) ; . 

The explicit allocation of a generation of S by the execution of an <allocate 
statement> causes N to be evaluated to determine the required amount of storage. 
The storage is allocated and the value of N is assigned to P->S.K where P 
identifies the generation. 

A <locator qualified reference> to S.A uses the value of S.K as the length of 
S.A. 

Example : 

P->S,A Q->S.A 

This example shows two generations of S.A, each identified by a unique locator 
value. The length of the first generation of S.A is P->S.K, while the length of 
the second generation of S.A is Q->S.K. 



4.3.3 Storage Sharing 

The language provides three mechanisms for sharing a generation of storage among 
two or more variables, 

1 . parameters 

2. based variables 

3. defined variables 

All of these mechanisms require that the variables that share a generation of 
I storage have identical data types, sign types, and alignment <attribute>s. This 
requirement ensures that the variables have identical storage representations. 

All three mechanisms provide techniques for sharing a generation of storage that 

is contained in an aggregate generation without having to share the entire 

aggregate. For example, scalars can be mapped onto array elements or members of 
structures, etc. 

A variable declared with a <plcture attribute> is considered to match only 
variables declared with equivalent pictures. Two pictures are equivalent if 
they are translated into identical <normal pictures> as described in paragraph 
8.2.12. 
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P = addr(A(3)); 
Auf.x! ^ "^^^'^ <reference> to A(3) , and P->S.Xisa valid <reference> to 

'^■3.3.1 Storage Sharing by Parameters 

Example : 

call f(X); f: proc(Y); 

During the block activation of f caused by the execution of "call f(X)-" X ^nri 
Y both refer to the same generation of storage. ' ' "^ 

'^•3.3.2 Storage Sharing by Based Variables 

Since the locator value identifying a generation of a variable in anv stor^a^ 
fir'^ 'h" ^H '^^'"!f '^ '^^ ""^^ °' '^^^ ^^^'- built-in functLn! il is'possible 
sJ^rage clJss/'"''''' ''° '" ^^^^^^^ively equivalenced to a generation' LaJy 

Example: 

declare A automatic; 
declare B based; 
P = addr(A); 
r-^D = ( ; 

The value of A after execution of the last Ossignment statement> is seven. 

It is also possible for several based variables to be referenced using the samP 

Example: 

Q->X Q->Y Q->z 

In this example, the based variables X, Y and Z are eauivalenced to fh»- 
generation of storage identified by Q. equivalenced to the 

the'criSJa^for^fmn?^^'?" '"'^ ""^ ^^^^'^ variable used to reference it satisfy 
can access ?hfjn^^i^ion"T"^!''®" '" paragraph 4.3.3.5, the based variable 
,„L f . generation. In this case, the data type, sign tvoe alienment 
aggregate type, and extents must match. ^^ ' ^-^^snment. 

Example : 

declare 1 A(5), 
2 X, 
2 Y; 

declare 1 S based, 
2 X, 
2 Y; 
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If the referenced generation and the based variable used to reference it satisfy 
the criteria for string overlay defining given in paragraph 4.3.3.6, the based 
variable can access the generation. In this case, the data types must match, 
except that pictured data and nonpictured character-string data types are 
considered to match. The aggregate types do not have to natch. 

Example: 

declare A(5) Gharacter( 1) ; 
declare B character (5) based; 
P = addr(A) ; 
P->B = "abode" 

The last <assignment statement> in this example sets the array A to the value 
"abode". The first element of the array has the value "a" and the last element 
has the value "e". 

A based structure declaration may be used as a description of a portion of the 
referenced generation without describing the entire generation. If the 
generation does not meet the criteria for string overlay defining as described 
in paragraph 4.3.3-6, the based structure must match the referenced generation 
from left-to-right up to and including all members contained within level-two of 
the item being referenced. 



Example: 






declare 1 S, 
2 A, 

2 B, 

3 C, 
3 D, 


declare 1 T based, 
2 A, 

2 B, 

3 C, 
3 D; 


declare 1 X based, 
2 A, 

2 B, 

3 C; 



2 E, 
etc 

P = addr(S); 

A <reference> to P->T.B.C is a valid <reference> to S.B.C, but a <reference> to 
P->X.B.C is not valid because the declaration of X does not describe all of the 
level-two substructure S.B. 

A based variable cannot access the storage of an unconnected array. 

A based variable cannot access the storage of a parameter, except during the 
block activation to which the storage was passed as an argument. For example, 
it is an error to take the "addr" of a parameter and assign the resulting 
locator value to static storage and subsequently, in another block activation, 
use the locator value. 



4.3.3.3 Storage Sharing bv Defined Variables 

The purpose of the <defined at;tribute> and the <position attribute> is to map a 
defined variable onto a genfcration of storage of another variable . Three types 
of mapping are possible: 

simple defining 

isub defining 

string overlay defining 
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Syntax : 

<defined attribute> : : = {defined I def} <ba3e reference> 
<ba3e referenGe>: := (<ref erence>) Kref erence> 
<position attribute>::= [ position I pos} [ (<position>) ] 
<position> : : = <expression> 

The <extent expression>s of a defined variable are evaluated upon block 
activation and saved in the block activation record. Consequently "they musi" 
satisiy the criteria given in paragraph 4.3.2.2 for the extents of automatic 
variables . 

Since a defined variable is associated with the generation identified by its 
<base reference>, it is never allocated and has no <initial attribute>. 

The variable identified by the <base reference> cannot be a defined variable or 
named constant. 

The <defined attribute> cannot be specified for members of structures When 
specified. for a structure, it maps the entire structure onto the generation of 
storage identified by the <ba3e reference>. 

Both the extents of the defined variable and those of the base variable are 
used to determine if the subscriptrange, stringrange or stringsize condition has 
occurred. Refer to Section 10. 

The <expression>s contained in the <base reference> are evaluated for each 
reference to the defined variable. Any <referenGe>3 in the <base reference> are 
resolved in the <block> in which the defined variable is declared. Refer to 
Section 6 for a complete discussion of <reference> resolution and evaluation. 

^.3-3.4 Isub Defining 

Isub defining allows an array to be defined onto another array by means of a 
programmer-defined mapping between the elements of the defined array and its 
base array. 

The <defined attribute> specifies isub defining if the <base reference> contains 
any <isub>s m its <subscript>s . 

A <sub3cripted reference> to an element of an isub-defined array is mapped into 
a <subscripted reference> to the base array by replacing each <isub> in the 
<base reference> with the ith <subscript> used in the <subscripted reference> to 
the defined variable. There must be an <isub> for each dimension of the defined 
variable or the program is in error. Each <subscript> is converted to a binary 
integer before replacing an <isub>. 

Example: 

declare A(3,3); 

declare B(3) def ined(A( 1 sub, 1 sub) ) ; 

The array B is a three element array whose elements constitute the diagonal of 
the array A. A <reference> to B(K) is equivalent to a <reference> to A(K,K). 

An unsubscripted <referenGe> to an isub-defined array is equivalent to a 
cross-section <reference> in which all <subscript>s are asterisks. 



7/78 4_T7 



AG94B 



Example : 

declare A(3,3) ; 

declare B(3) def ined( A( 1 sub, 1 sub) ) ; 

A <reference> to B is equivalent to a <reference> to B(*) which is equivalent to 
a <reference> to the array formed by the elements 'A( 1 , 1 ) , A(2,2) and A(3,3). 

The <position attribute> cannot be used with isub defining. 

The data type, sign type, alignment <attributes>3 , string <length>, and <area 
3ize> of the defined array must be identical to the data tyoe, sign type, 
alignment <attributes>s , string <length> , and <area size> of the base array. ' If 
the defined variable is a structure, the structuring of the defined variable and 
the base variable must be identical, and the data types, sign types, alignment 
<attribute>s, and extents of all members of the define.d variable must be 
identical to the data types, sign types, alignment <attribute>s , and extents of 
their corresponding members in the base structure. 



^.3.3.5 Simple Defining 

Simple defining allows a defined variable to share the storage generation 
I referenced by the <base reference>. The data type, sign tyoe, alignment 

<attribute>s, string <length>, and <area size> of the defined variable must be 
I identical to the data type, sign type, alignment <attribute>s , <3tring length> , 

and <area size> of the generation identified by the <base reference>. If the 

defined variable is a structure the structuring of the defined variable and the 
I base variable must be identical, and the data types, sign tyoes , alignment 

<attribute>s, and extents of all members of the defined variable must be 
I identical to the data types, sign types, alignment <attribute>s , and extents of 

their corresponding members in the base structure. 

The <defined attribute> specifies simple defining when there are no <isub>s 

given in the <base reference>, no <position attribute> specified, and the 

attributes and extents of the defined variable match those of the base variable 
as described in the previous paragraph. 

A <subscripted reference> to a simple-defined array is mapped into a 
<subscripted reference> to the base array by replacing the jth asterisk in the 
<base reference> with the jth <3ubscript> used in the <subscripted reference> to 
the defined array. There must be as many asterisks in the <ba3e reference> as 
there are <subscript>s in the <subscripted reference> to the defined array or 
the program is in error. Each <subscript> is converted to a binary integer 
before replacing an asterisk. 

Example : 

declare A(3 ,3) ; 

declare B(3) def ined(A(» ,2) ) ; 

A <subscripted reference> to B(K) is mapped into a <subscripted reference> to 
A(K,2). 

An unsubscripted <reference> to a simple-defined array variable is equivalent to 
a cross-section <reference> to the defined array variable in which all of the 
<3ubscript>s are asterisks. 



Example: 



declare A(3 ,3) ; 

declare B(3) def ined(A(* ,2) ) ; 

The <reference> B is equivalent to B(») , which is equivalent to a <reference> to 
tiiS array formed from the elements A(1,2), A(2,2), and A(3i2). 
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''•3.3.6 String Overlay Deflnin;; 

aggregIteSypes"^f \°he%"med 'vY/ZL^ble'lnd^the Va^\ Variable ^nfeT'^^' ' /!!^ 

lTa:T."".ri.rl.iU. """"°" •"'"■"«•> " """"•1 for ..ch <r,r.r.„o.> 

the defined variable. Let i be lenathf strlnoCrin tv,» c^j-, .^'^=^ff^en=e^ co ■ 
must be satisfied: 0<i.1<j+i-i<n. ^*"«''"^^'^'^^"8(cl) ) . The following inequality I 



Example: 



declare A(5) oharaoter(2) unaligned: 

2 X oharacter(5) unaligned, 
2 Y pioture"99999" unaligned; 



A <referenoe> to B.X is a Preference) to the first two and on- hair eler-erts -f 
A^and a .reference) to S.Y is a Preference) to the last two and" one 'half :!e«ents 
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SECTION 5 
DECLARATIONS 



An <identifier> may be used as a keyword or as the flams of a variable, named 
constant, built-in function. Kenerio funrt^nTT^r^r. .«nHs<-,„„ ".„!_ 



function, generic function, or condition. A given 
-^-v....^.^.. , v.=„ „^ uacd both as keyword and as a name. The meaning of a ns 
^^^K. fC""^"! .''^ ^ '^^g^ar^t^^PI of the name. Each declaration is established 
a <block> and is accessible throughout a region of the program known as t 
scoee of the declaration or the scope of the name. 



5-1 Scope of a Declaration 

IS?n4>^^fn iL.t .K^"^ ^^ ^'^^ <blook> in which it is declared and all contained 
<block>s m which the name is not redeclared. Refer to Section 2 for a 
discussion of program structure, 

Note that the above definition of scope does not strictly apply to declarations 
of members of structures. Refer to paragraph 6.4 for a discussion of the scope 
01 member's names. ^>-k^ 

A name cannot be declared more than once in a given <block>, except as the name 
dLtJ^r" fx J^^^^fv «° two members of a structure can have the same name. A 
ard^s an°errSr ^'■°^^*^^ ^^^^^'' °^ ^*^"^ constraints is a multiple declaration 



5.1.1 Internal ?;Gonft 

A declaration containing the <internal attribute> is the declaration of a name 
whose scope is interna; . The name is known only in the <blook> in which It ft 
declared and all contained <block>s, except those <block>s in which it is 
reaeclared. 



5.1.2 External Senr.<» 

L«!2~^''"*^°" ?°"'--^"'-"S the <external attribute> is the declaration of a name 

™ ^/n^^f ^^ ^?!^rB^^ - "^^ "^""^ ^^ ^"°«° i° a^l <block>s in which the same 
name is declared with the <external attribute> and in all contained <block>3 
except those <block>3 in which it is redeclared with the <interna! attriCutex' 
All declarations of an external name must have equivalent <attribute set>s, and 
^ii.^fn^ declarations refer to the same generation of storage, the same 
constant, or the same condition. 
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5.2 Establishment of Declarations 

This paragraph describes the transformations made to the text of an <external 
procedure> during compilation in order to establish complete declarations for 
all names and <literal constant>3 used in the <external procedure>. The 
transformations are made in this strict order: 

1 . Each <procedure statement> that has more than one <label prefix> is 
transformed into a <procedure 3tatement> followed by a sequence of <entry 
statement>3. Each <procedure statement> or <entry statement> thus 
generated has one <label prefix> and have identical <parameter list>s and 
<procedure option>3. 

Each <entry statement> that has more than one <label prefix> is transformed 
into a sequence of <entry statement>s each of which has one <label pref ix> , 
and all <entry, statement>s have identical <parameter list>s and <entry 
option>s. 

2. Each <get statement> that has no <file option> and no <string option> is 
given a <file option> of the form: 

file(3y3in) 

Each <put statement> that has no <file option> and no <3tring option> is 
given a <file option> of the form: 

file(sysprint) 

Each <copy option> without a <reference> is given a <reference> of the 
form: 

sysppint 

3. Each <declare statement> is defactored as described in paragraph 5.2.1.1. 

4. Each <like attribute> is expanded as described in paragraph 5.2.2. 

5. Declarations are established for all names, <literal constant>s and 
<descriptor>3. These declarations are derived from <declare statement>3, 
<label prefix>3, <parameter descriptor>s, <returns de3criptor>3, <literal 
constant>s, and <simple reference>s to undeclared names. 

6. The <attribute 3et> of each declaration is completed by evaluating <default 
statement>s, by applying the language default rules, and by creating 
<parameter descriptor>3 and possible <returns attribute> for each entry 
declaration produced by a <label prefix>. 

7- Each declaration is validated as described in paragraph 5.5. 



5.2.1 Declare Statements 

Each <declare statement> is processed by the compiler and behaves like a <null 
statement> when executed. 



Syntax: 



<declare 3tatement>: := [<label pref ix>] ... {declare I del} 
<declaration list>; 

<declaration list>::= <declaration component> 
[ ,<declaration component>] . . . 

<declaration component>: := [<level>] {<declared name>| 
(<declaration list>) } [<attribute 3et>] 
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<declared name>::= <identifier> 
<attribute set>::= <attribute> . . . 
<level>::= <decimal integer> 

5-2.1.1 Defactoring of Declare Statements 



Each <declare 3tatement> is transformed into a <defactored declare> bv 
performing the following steps in the indicated order: 

1. Copy the <level> that appears immediately to the left of the innermost 
parenthesized <deGlaration list> to a position immediately to the left of 
each <declared name> in that <declaration li3t>. 

2. For each <declared narae> in that <declaration list>, if the <declared name> 
IS immediately followed by an <attribute set>, copy the <attribute 3et> 
that appears immediately to the right of the innermost parenthesized 
<declaration list> to a position immediately to the right of the <attribute 
3et> immediately following the <declared name> ; otherwise, copy the 
aforementioned Ottribute 3et> to a position immediately to the right of 
the <declared name> . 

3. Remove the <level> and the <attribute set> from the innermost parenthesized 
<declaration list> and remove its parentheses. If any parenthesized 
<declaration list>s remain, repeat these steps. 

The program is in error if the defactoring of a <declare 3tatement> produces a 
<statement> whose syntax is not described by that given below for a <defactorpd 
declare>. 

Syntax: 

<defactored deGlare>::= [<label pref ix>] ... {declare I del } 

<defactored declaration>C ,<defactored declaration>] . . . ; 

<defaetored declaration> : : = [ <level>]<declared name> 
[<attribute set>] 

<attribute set>::= <attribute> . . . 

<level>::= <decimal integer> 

<declared name>::= <identifier> 

The syntax of each <attribute> is given in paragraph 5.4. 
Example: 

declare ((a,b pointer )automatic) internal ; 
is equivalent to; 

declare a automatic interna", 

b pointer automatic internal; 

Example: 

declare 1 s, 2(a,b) pointer; 
is equivalent to: 

declare 1 s, 2 a pointer, 2 b pointer; 
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5.2.1.2 Multiple Attributes 

A given <attribute> may occur more than once in an <attribute set> only if all 
but one such occurrence consists solely of a keyword. If the syntax of the 
<attribute> requires anything other than a simple keyword, the <attribute> 
cannot occur more than once in a given <attribute set>. 

Example : 

declare A entry entry(float ) ,B bit(1) bit(1); 

The declaration of B is in error while the declaration of A is valid. Both are 
examples of poor programming style. 

The example given in paragraph 5.3-2 on the use of the <default statement> shows 
how multiple occurrences of a given <attribute> can be useful. 



5.2.1.3 Normalization of Levels 

If a <defactored declaration> has a <level> greater than one, the preceding 
<defaGtored declaration> must have a <level>. If a <defactored declaration> has 
a <level> equal to one, either it must have a <like attribute> or it must be 
followed by a <defactored deGlaration> with a <level> greater than its own. 
These constraints ensure that a <defactored declaration> with a <level> is 
either a structure or a member of a structure, and that all major structures 
have a <level> of one. 

A declaration is a level-one declaration if it is not a declaration of a member 
of a structure. A variable is a level-one variable if it is not a member of a 
structure. 

After defactoring is complete and structuring is established, <level>s are 
normalized so that the <level> of each structure member is one greater than the 
<level> of its immediately containing structure. Refer to paragraph 5.2.3.1,3 
for a description of structure declarations. 

Example: 

declare 1 S, 4 A, 3 B, 3 C; 
is normalized to: 

declare 1 S, 2 A, 2 B, 2 C; 



5.2.2 Expansion of the Like Attribute 

Syntax: 

<like attribute>::= like<like reference> 

<like reference>::= <identifier>C . <identifier>]. . . 

The <like attribute> is a macro-attribute expanded by the compiler. It is 
replaced by a copy of the declarations of all of the members of the structure 
identified by the <like reference>. 

The <like reference> is resolved as if it were a <simple reference> or a 
<structure qualified reference>. It must identify a structure declared in a 
<block> that contains the <like reference>. Refer to Section 6 for a discussion 
of <reference>s. 
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^L^^th .\ ^^''^^ <block>, all <like reference>s are resolved before any <liice 
attribute>s are expanded. This ensures that the order in which the decSationI 
are processed by the compiler does not affect the resolution or<liSe 
reference>s. The program is in error if the structure identified by ?he <likP 
reference> was produced by the expansion of a <like attribute" or if it iai 
"reference's ' '^^""^ attribute>. Refer to Section 6 for a discussion T- 

Example: 

declare 1 A, 2 C,3 S,3 F; 

declare 1 D,2 C,3 G',3 H; 

begin; 

declare 1 A like D; 

declare 1 B like A.C; 

^f^^^nf/^^ ^^^^t '^^^«'*«n«>3 of the <begin block> are resolved before any <like 
attribute>s m the <begin block> are expanded, the <like reference> A C iS 

thr<Se ^ttrfhr.'^ ^""^ declaration of A in the outer <block> and the result of 
tne <like attribute> expansion is: 

declare 1 A, 2 C,3 G,3 H; 
declare 1 B,2 E,2 F; 

Sti-.?h?;L^f ^^^^"^^^^ copied by the expansion of the <like attribute> are those 
^^^^^^S"^f ^ ^^f r®" explicitly specified in the declaration of the members of 

Example: 

• declare 1 S(5) based, 
? a Hi I- r 1 "I 

2 B(7) pointer; 

declare 1 T like S auto; 

The expanded declaration of T is: 

declare 1 T auto, 

2 A bit(1), 

2 B(7) pointer; 

L^t%t^°ll'^H ?eclaration> containing a <like attribute> must have a <level> and 
cannot be followed by a <defactored declaration> whose <level> is greltir than 
<Hfff^?- ?f constraint ensures that expansion of a <like attrib2tl> produces 
<defaGtored declaration>s of all members of the structure. proauces 

Any <level>3 copied by the expansion of a <like attribute> are adjusted so that 
cS:faLlnrth:i!i1e^i^?r[SSEr>! ^° ''' '''^''' ^' ''^ <defactored^ declaratiS?5 
Example: 

declare 1 X, 2 Y, 2 Z; 

declare 1 S, 2 R, 3 T like X; 
The expanded declaration of T is: 

declare 1 S, 2 R, 3 T, 4 X, 4 Y; 
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5.2.3 Establishment of Explicit Declarations 



5.2.3-1 Declare Statements 



After <declare statement>s have been defactored and <like attribute>s have been 
expanded, a single declaration is established for each <declared name> in each 
<declare statement>. These declarations are established in the <block> that 
immediately contains the <declare 3tatement>. The <attribute 3et> of each 
declaration contains only those <attribute>s explicitly specified in the 
<defactored declaration>. Such declarations are known as explicit declarations. 



5.2.3.1.1 Declarations of Scalars 

A <defactored declaration> that is neither an array declaration as described in 
paragraph 5.2.3-1.2 nor a structure declaration as described in paragraph 
5.2.3.1.3 is a declaration of a scalar variable, scalar constant, builtin 
function, generic function, or condition name. 



5-2.3.1-2 Declarations of Arrays 

If the <attribute 3et> of a <defactor6d declaration> contains a <dimension 
attribute> the <declared name> is declared as an array whose dimensionality and 
<bound>s are given by the <dimension attribute>- 

Members of dimensioned structures are arrays whose dimensionality and <bound>s 
include the dimensionality and <bound>s given in their own <dimension 
attribute>, as well as those inherited from their containing structures. Unless 
the member has its own <dimension attribute>, the member acquires the 

the <dimension attribute> for the purposes of later <default statement> 
evaluation - 

Examples: 

declare A( 10, 10) ; 

declare 1 S(10),2 X(10),2 Y; 

X and A are ten-by-ten two-dimensional arrays, while S and Y are ten element 
one-dimensional arrays. A <default 3tatement> whose <predicate> contained the 
keyword "dimension" would apply to the declarations of A, S and X, but not to Y. 



5.2.3-1-3 Declarations of Stninturas 

A <defactored declaration> is a declaration of a structure if it has a <level> 
and is followed by one or more <defactorec? declaration>s whose <level>s are 
greater than its own. The <3tructure attribute> may be explicitly written in 
the <attribute set> of a structure "declaration, but the declaration must also 
have a <level> and must be followed by one or more <defactored declaration> 
whose <level> is greater than its own. 

A <defactored dec3,aration> with a <leyei> greater than one is a member of the 
nearest <defactored declaration> to its left, whose <level> is less than its 
own. The <member attribute> may be explicitly written in the <attribute set> of 
a member declaration. 
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Example: 

declare 1 S,2 A, 2 B; 
is equivalent to: 

declare 1 S structure, 2 A member, 2 B member; 

5.2.3.2 Label Prefixes 

An explicit declaration is also established for each <declared name> that 
appears in a <label pref ix> . The declaration is established in the <block> 
immediately containing the <label prefix>. The <declared name> appearing in the 
<label prefix> of an <entry 3tatement>, <procedure statement>, or <begin 
statement> is declared in the <block> that immediately contains the <procedure> 
or <begin block>. The declarations produced by <label prefix>3 on the <entry 
statement>s or <procedure statement> of an <external procedure> are established 
in an imaginary outer <bloGk> that contains the <external procedure>. 

Example: 



A: 


proc; 


B: 






C: proc; 




D: 




E: entry; 




F: 








G: end C; 


H: 




I: 


end A; 



The names B,C,£,H,I are declared in <procedure> A, and since they are not 
redeclared in <procedure> C, their scope includes both A and C. The names D,F,G 
are declared in <procedure> C and their scope is <procedure> C. The name A is 
declared in an imaginary outer <block> and its scope includes both <procedure>s 
A and C. 



5.2.3.2.1 Format Constanta 

A <declared name> appearing in a <label prefix> of a <format 3tatement> is 
declared in the immediately containing <block> with the <format attribute>, 
<con3tant attribute>, and <internal attribute>. 

The <label prefix> of a <format statement> cannot contain a <prefix subscript>. 



5.2.3.2.2 Label Constants 

A <declared name> appearing in the <label prefix> of any <3tatement>, other than 
an <entry statement>, <procedure 3tatement>, or <format statement>, is declared 
with the <label attribute>, <con3tant attribute> and the <internal attribute>. 
If the <label prefix> contains a <prefix 3ubscript>, the declaration is given a 
<dimension attribute> of the form (L:H) where L is the lowest <prefix 3ubscript> 
used in any occurrence of this name in a <label prefix> within the <block> and H 
is the highest <prefix 3ubsGript> used in any occurrence of this name in a 
<label prefix> in the <block>. In Multics PL/I, a label constant array cannot 
have more than one dimension. 
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Example: 



A: begin; 
L(1): 



L(-2) 



L(4) 



end A; 

L is declared in <block> A as a label constant array with a lower <bound> of -2 
and an upper <bound> of 4. 

It is an error to reference any element of a label constant array that is not 
defined by a <label prefix>. 



5.2.3.2.3 Entry Constants 



A <declared name> appearing in' a <label prefix> of an <entry statement> or 
<procedure statement> is declared in the immediately containing <block> with the 
<entry attribute> and <con3tant attribute>3, either the <internal attribute> or 
the <external attribute>, and, optionally, with the <returns attribute>, 
<reduGible attribute> or <irreducible attribute>. 

The <returns attribute> and the <reducible attribute> or the <irreducible 
attribute> are copied from the <entry statement> or <procedure 3tatement>. The 
<externai attribute> is supplied if the <label prefix> appears on an <entry 
statement> or <procedure statement> defining an entry to an <external 
procedure>; otherwise, the <internal attribute> is supplied. 

After <default statement>3 have been evaluated and the language default rules 
applied to all declarations, a set of <parameter descriptor>s (pi ,p2, . . . , pn) is 
created for each entry declaration produced by a <label prefix>. The <parameter 






the entry. A <parameter descriptor> p(k) produced by this examination contains 
all of the <attribute>s of the kth parameter in the <parameter list> of the 
<entry 3tatement> or <procedure statement>, except the <variable attribute> and 
<parameter attribute>. 

The <label prefix> of an <entry 3tatement> or <procedure statement> cannot 
contain a <prefix 3ubscript>. 

After <default 3tatement>3 have been evaluated and the language default rules 
applied to all declarations, the <returns attribute> of each declaration 
produced by a <label prefix> is copied onto the <entry 3tatement> or <procedure 
statement> for use during execution of <return 3tatement>3 in that <procedure>. 
The original <returns attribute>, if any, on the <statement> is replaced by this 
copy. 

Example: 

P: proc(a) return3(pointer) ; 



declare a pointer; 



Inner: proc(x) returns ( bit ( 1) ) ; 



end; 



declare x pointer; 
end; 
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The <label prefix> Inner produces a declaration equivalent to: 

declare Inner entry(pointer) returns(bit ( 1 ) ) internal; 

The declaration is established in the <external procedure> P. The <label 
prefix> P produces a declaration equivalent to: 

declare P entry(pointer) returns(pointer ) external; 

The declaration is established in an imaginary outer <block> that contains the 
<external procedure> P. 



5.2.4 Establishment of Contextual Declarations 

Any name not explicitly declared by a <declare statement> or <label prefix> is 
contextually declared if it appears in any of the following contexts. Unless 
otherwise noted, the declaration is established in the <external procedure>. 

1. Area: An undeclared name is contextually declared with the <area attribute> 
and the <variable attribute> if it appears as the <referenGe> of an <in 
option> or <offset attribute>-. 

2. Builtin: An undeclared name is contextually declared with the <builtin 
attribute> if it appears followed by an <argument list> and is one of the 
names listed in Section 13- If it is not listed in Section 13 and it 
appears with an <argument list> or as the <entry reference> of a <Gall 
statement>, the program is in error. 

3. Condition: An undeclared name is contextually declared with the <condition 
attribut8> if it appears as a <condition name> in a <signal statement>, 
<revert statement>, or <on statement>. 

4. File: An undeclared name is contextually declared with the <file attribute> 
and the <Gonstant attribute> if it appears as the <reference> of a <file 
option> or <copy option> of an input/output <statement>, or as the 
<reference> of an input/output <condition name>. 

5. Parameter: A name not declared, except as a structure member, in the 
<block> in which it is used in a <parameter list> is declared with the 
<parameter attribute> and <vafiable attribute>. The declaration is made in 
the <block> immediately containing the <parameter list>. 

6. Pointer: An undeclared name is contextually declared with the <pointer 
attribute> and the <variable attribute> if it appears as the <locator 
qualifier> of a <based attribute> or <locator qualified reference>, or if 
it appears as the <reference> in a <3et option>. 



5.2.5 Contextually Derived Attributes 

Contextual declarations acquire <attribute>s ./hich depend on the context that 
produced the declaration. Any additional <attribute>s are supplied later when 
<default statement>s are evaluated and the language default rules applied. 

Explicit declarations do not acquire any <attribute>s, other than the <parameter 
attribute>, from the usage of the name in one of the above mentioned contexts. 
The <attribute>s of an explicit declaration are acquired when the declaration is 
established and when defaults are supplied. 

An explicit declaration of a name, other than a member of a structure, is given 
the <parameter attribute> if it appears in a <parameter list> of the <procedure> 
in which it is declared. 
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5-2.6 Establishment of Implicit Declarations 

A name that is neither explicitly nor contextually declared is implicitly 
aeclared in the <external procedure> with no attributes. 

Each <descriptor> appearing in an <entry attribute> or <returns attribute> is 
implicitly declared in the <block> in which the entry declaration is 
established . 

Each <literal Gonstant> is implicitly declared in the <block> that immediately 
contains it and is given the <constant attribute>. Declarations of <bit-strine 
constant>s are given the <bit attribute>. Declarations of <Gharacter-string 
constant>3 are given the <Gharacter attribute>. Declarations of <arithmetic 
constant>s are given the <float attribute> if they contain an e, and are given 
the <fixed attribute> if they contain an f. They ~ are given the 
<complex attribute> if they contain an i,- othirwise, they are given the 
<real attribute>. The rest of their <attribute>s are supplied by <default 
statement>3 and by the language default rules. Note that <default statement>s 
are not applied to <bit-string constant>3 or <character-string constant>3. 
Also, <default statements> are not applied to <arithmetic constant3> containing 
£• 



5 .3 Completion of Attribute Sets 

Unless a declaration was produced by a <declare statement> that explicitly 
provided all <attribute>s , the declaration has an incomplete Ottribute set> 
The <attribute set> of each declaration is completed by performing the followine 
steps in the indicated order: 

1. If the declaration contains a <precision attribute> containing a <scale 
factor>, the <fixed attribute> is given to the declaration. 

2. If the declared item is a member of a structure and has neither the 
<aligned attribute> nor the <unaligned attribute>, the <aligned attribute> 
and <unaligned attribute> of its immediately containing structure are given 
to the declaration. If the immediately containing structure does not have 
eicner oi these <attribute>s, the members of the structure acquire one of 
the alignment <attribute>3 from the application of defaults as described in 
steps 4 and 5. 

3. If the declared item is a member of a structure, it is given the <member 
attribute> and the <internal attribute>. If it is a structure, it is given 
the <structure attribute>. If the item has a <dimension attribute> or 
<precision attribute> without a keyword, the keyword is supplied. 

4. Beginning in the <block> of declaration, all <default statement>s are 
evaluated in the order in which they appear in the <block>. When all 
<default statement>s in a given <block> have been evaluated, the <default 
statement>s in the immediately containing <block> are evaluated in the 
order m which they appear in that <bloGk>. This process is continued 
until the <default statement>s of the <external procedure> have been 
evaluated. 

5. The language defaults are supplied by evaluating the <default statement>s 
listed ir paragraph 5.3.3 as if they were written in a <block> containing 
the <external procedure> . 

6. Each entry declaration produced by a <label prefix> is given a set of 
<parameter descriptor>s derived from the declaration of the parameters of 
the entry. 
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hLJIh ►®"-?''^ declaration contained a <returns attribute>, its <return3 
hhrSl^^°T^ was processed by step 4 as if its <blook> of declaration «as 
the <block> that immediately contained the <entry 3taten,ent> or <prooedurl 
tlJ^tVL , fom "hich the declaration of the entry was derived. This ensures 
that the <attributes> of the <returns descriptor> are those that apply to 
the inner <blook>, not the <block> in which the entry declaration was made! 

7. The declaration of each Orithmetio constant> that does not have either the 
<deoimal attribute) or <binary attribute) is given the <deoimal attribute) 
unless -It contains a b, in which" case it is given the <binary attribute). 
given the%"f!xe5':ttr'fbuVeV.'' attribute) nor the <float attribute), it is 

lii-^^L^^?^^'^t^^°" °^ an <arithmetic constant) does not have a <preoision 
attribute), it acquires the <precision attribute) obtained by converting 
.ne source precision to the base and type specified by its <attribute set)! 
The source precision of an <arithmetic constant) is the number of digits in 
the mantissa, including leading and trailing zeros. If the 
^arithmetic constant) does not contain a <scale tvoe) of e it ha<! = 
<scale factor) of j-k, -where j is the number of fractional digits in thi 
mantissa, or if there are none, and k is the value of the exponent, or 
If there is none. Refer to paragraph 8.2.10 for a discussion of the conversion 
rules . 

8. Any declaration that has the <area attribute) and does not have an <area size) 
13 given an <area size) of 102H. Any declaration that has the 
<charaoter attribute) or <bit attribute) and does not have a <length) is 



Note that although file description attributes can be added ' to 




are 
and env 



input, output, update, record, stream, sequential, direct, keyed, print, 
vironaent. ^ , r , 



5.3.1 Default Statement 



!h!ii t statement) enables the programmer to determine what <attribute>s 
shall be supplied to declarations whose attribute set)3 are incomplete. It 
allows <attribute)s to be suoolied on th» h=.,i, ^p vw- ^,*;-:"!:°™v: -, ---i . 
acquired or on the basis of thV spelling oF thY'dVclVredtam;?"" ^""""'^ ""''"'^' 



Syntax : 



<default statement)::: C<label prefix)] ... {defaultidft} 
(system! none Kuser defaults)}; 

<user defaults) ::= C <predicate>){ error Kattribute set>[ ,.<attribute set)]...} J 
<attrlbute set) : : = <attr ibute) . . . 

<predicate>: := <predioate one) I 

<predicate>J^<predicate one) 

<predlcate one>::s <predioate two>j 

<predicate one)&<pre<iicate two) 

<predicate two>::= <predioate three) I "<predioate two) 

<predioate three): := (<predicate>) Kattribute keyword) I 
<range) 
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<range>: := range(») I range(<identifier>) 1 
pange(<letter>:<letter>) 

<attribute keyword>::= <identifier> 

An Ottribute keyword) must be the keyword or abbreviated keyword used to designate 
Trl equivalent. """^ '"" ''''" attribute). Keywords and abbreviated keywords 

Ittri^h,^'?v/"'"^''"'**/!"v°l "* applied by a <default statement) because <Uke 
attribute>s are expanded before the application of <default statenient>s. 

5'3.2 Evaluation of Default Statements 

state«^'ntrw^\„'V,\rted. '' *'''"''^' "^ ''^ =°"'^^^*'- ^"^^ "^^^^ ^^^« ^ <-" 




Just as it is possible to write an inconsistent <attribute set> in a <deolare 
^lf^T!^\ ' ^s possible to produce a declaration with an inconsistent Ottribute 
^tll^/ IJ '"'IJ'-^ -^ «lefault statement). The <predioate> of a <default statement) 
declarations hht°.",1*^^,/^^t°"^^ ■^° '^°^<^ applying default <attribute)s to 
»!oi /oU K . f!'°"i'^ "°' receive them. The Multics PL./I compiler copies 
<lVlr.^^^,^:^\ll% l^.lij!. ^ «^.«fl"" statement) in left-to-right order into the 




T>,-'^7nVw ^^!"\1 7^\"*, °^ *'""^" °'" "false" When applied to a declaration. 
The infix operator "i" yields a value "true" only if either or both of its 
operands are "true". The infix operator "i" yields' a value "true" only if both 

iU'itir,TrtLT. :f2t:«. ''•' "••*"=' ='^'"-^'^°'- """ ^'^^'^ ^ -^- "^'-" -^y 

«r'i4i^*i;^''"V "^'.'fJ"'*^ ""^ '^'•3"8«> operand of the <predicate) yields a "true- 
vi-iH, »* "^i"* ?"" ^SP*"* to a given declaration. An Ottribute keyword) 
hi thf o^^rih /^l"* °"^/s ^^^''* declaration contains the <attribute) identmed 
S«?^rJf«n ?^' keyword). A <range> operand yields a value "true" only if the 
operand! ^ declaration of a name whose spelling satisfies the <range> 

"con"ta„\"°w"as'''spV/ifIlS.°''"°"' """"^ '' ""' considered to yield "true- if 
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A <range> operand of the form range(») is satisfied by any name. A <range> 
operand of the form rangeC <identif ier>) is satisfied only by names which begin 
with the same sequence of characters as the <iden-tif ier> given in the <range> 
operand. A <range> operand of the form range(<letter>:<letter>) is satisfied 
only by names whose first letter is in the English alphabetical sequence between 
and including the first and second <letter>s. The first <letter> inust occur in 
the alphabet before the second <letter> or both must be the same letter. 

N'ote that declarations of <literal constant>s, <parameter descriptor>s or 
<returns descriptor>s never satisfy a <range> operand because such declarations 
are not declarations of names. 
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Example: 

defauXt(bit) bitd); 

default(fixed) binary(15); 

declare b bit(5), f entryO returns(bit) ; 

declare a fixed; 

is equivalent to: 

declare b bit(5) bitcn, f entryO returnsCbit bit(l)): 
declare a fixed binary(15); 

Note that the declaration of b is an invalid declaration. 
Example: 

defaul t( rangeC •)&* ( automatic | based ! controlled ! defined : 

parameter I member I generic I builtinl condition I constant)) 
internal static; 
declare a pointer; 

is equivalent to: 

declare a pointer internal static; 

fh! /H"ff^Ml^*®'^* 1"''*1v"'^^."^^^ '=° ^^"'^y the language defaults as expressed by 
the <default statenent>s given m paragraph 5.3.3, 



5-3.2.1 Special Cases of the Default Statement 

A <default statement> of the form: 
default system; 

causes the language defaults to be applied as if the set of <default statement): 
given in paragraph 5.3.3 were written at this point in the <procedure>. 

A <default statement) of the form: 

default none; 



causes no further defaults to be supplied either from <default 3tatement>s remainins 
in 1,1.6 program or oy the application of language defaults. 

A <default statement) of the form: 

default {<predioate>) error; 

causes any declaration within the scope of the <default statement) for which the 
<predicate> is true to be considered in error. The Multics PL/I compiler issues 
a diagnostic for each such declaration. 



5.3.3 Language Default Rules 

Entry Defaults 

default (returnslreduciblelirreduoibleloptions) entry; 
default (entryi'reducible) irreducible; 

File Default 

defaults input 1 output I updatel stream! record I print I keyed I direct I 
sequential! environment) file; 
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Arithmetic Defaults 

defaults (character I bit I pointer I off set I area I label I format I entry I file I 
fixed , float 1 picture 1 binary 1 decimal I real 1 complex I 




String Default 

default(( character I bit )&"( varying I constant)) nonvarying; 
Scope and Storage Class Defaults 

defaul fc(( entry 1 file)* (automatic I based 1 static I parameter I 
defined! controlled! member I aligned ! unaligned I 
initial) variable; 

default(( entry I file)4range(»)4* variable) constant; 

default ("(constant! bull tin 1 generic I oondition)irange(»)) 
variable; 

default(( file! entry)4range(»)&constant4* internal) external- 
default(oondition) external; ' 

default("external4range(»)) internal; 
default(variable4external4"controlled) static; 
default (variable*- (based ! controlled 1 static I defined I parameter I 
member)) automatic; 

Storage Mapping Defaults 

default ((character! bit! picture! structure)!- (aligned I constant)) 
unaligned; 

default (-(constant I builtin! generic! unaligned)) aligned- 
default ( (fixed! float)4-unsigned) signed; 

Example: 

declare i fixed; 

declare j float; 

declare a; 

declare X external; 

declare E entry returnsC fixed) ; 

After application of the language defaults, these declarations are: 

declare i fixed binary real preci3ion( 17,0) 

aligned variable automatic internal signed; 
declare j float binary real preoision(27) 

aligned variable automatic internal signed; 
declare a fixed binary real preci3ion< 17,0) 

aligned variable automatic internal signed; 
declare X fixed binary real precisionC 17,0) 

aligned variable static external signed; 
declare E entry constant external irreducible 

returns(flxed binary real preci3ion( 17,0) aligned signed); 
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5.^ Syntax and Semantics of Attributes 

The <attribute>s described in this section are used in <attribute 3et3> of 
<declare statement>s, <default 3tatement>s, <descriptor>s, and in <open 
statenient>s to describe variables, constants, functions and conditions. The 
discussion of each <attribute> assumes that <attribute 3et>3 have been 
completed. See paragraph 5.3 for a discussion of <attribute 3et> completion. 
In the discussion of each <attribute>, item refers to a declaration of a name, a 
<parameter descriptor>, or a <return3 descriptor>. 

The description of each <attribute> gives constraints that apply to the 
<attribute>. Section 5.5 gives a concise syntax that shows which <attribute>s 
can and must appear in th.e same completed <attribute 3et>. 



5.4.1 Aligned 

Syntax: 

<aligned attribute>: := aligned 

The <aligned attribute> is used in an implementation-defined manner to influence 
the representation of values in storage. In Multics PL/I, aligned data is 
allocated on a word or multiple word storage boundary, and the amount of storage 
is an integral number of words. 

When a generation of storage is to be shared or accessed by more than one name, 
all names used to access the generation must have the same alignment 
<attribute>. Refer to paragraphs 4.3.1 and 4.3.3. 



5.4.2 Area 

Syntax: 

<area attribute>: := area[(<area si2e>)] 

<area 3ize>::= <extent expre33ion>| * 

<extent expression>: := <expression>[<refer option>] 

<refer option>::= refer(<reference>) 

An item declared with the <area attribute> represents area values whose size is 
given by the <area si2e>. 

Evaluation of the <expression> of an <extent expression> must yield a scalar 
value suitable for conversion to a fixed-point, binary, real, integer. If the 
<refer option> is given the value of the <expression> must also be suitable for 
conversion to the data type of the variable identified by the <reference> in the 
<refer option>. 

If the item haa the <3tatic attribute>, the <area size> must be an unsigned 
<decimal integer>. If the item has the <parameter attribute> or is part of a 
<de3criptor>, the <area 3ize> must be an unsigned <decimal integer> or an 
asterisk. If the item does not have the <parameter attribute> or is not part of 
a <descriptor>, the <area size> cannot be an asterisk. If the item does not 
have the <based attribute>, it cannot contain a <refer option>. Refer to 
paragraph 4.3.2.5 for a discussion of based storage and the <refer option>. 
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5.4.3 Automatic 

Syntax: 

<automatic attribute>: : = automatic I auto 

A name declared with the <automatic attribute> is a variable whose storage class 
is automatic. Refer to paragraph 4.3.2 for a discussion of storage classes. 



5.4.4 Based 

Syntax: 

<based attribute> : := basedC(<locator qualifiep>)] 

<locator qualifier>: := <reference> 

A name declared with the <based attribute> is a variable whose storage class is 
based. Evaluation of the <locator qualifier> must yield a scalar locator value. 
If the <loGator qualifiep> is omitted, all <reference>s to the based variable 
except, <allocation reference>s or the <reference>s of <refer option>s, must be 
<locator qualified reference>3 as defined in paragraph 6.6. All <reference>s to 
based variables without locator quailification, except <allocation reference>s or 
the <reference>s of <refer options>, are implicitly qualified by the <locator 
qualifier>. Refer to paragraph 4.3.2 for a discussion of storage classes, and 
to paragraph 6 for a discussion of <reference>s. 



5.4.5 Binary 

Syntax: 

Nuitiary attribute> ; ; = binary I bin 

An item or <literal Gon3tant> declared with the <binary attribute> represents a 
binary arithmetic value or values. 

5.4.6 lit 

Syntax: 

<bit attribute>::= bit[(<length>) ] 

<length>::= <extent expression>| » 

<extent expression>: := <expression>[<refer option>] 

<refer option>::= refer(<reference>) 

An item or <literal constant> declared with the <bit attribute> represents a 
bit-string value or values. 

If the item also has the <varying attribute>, the <length> is the maximum number 
of bits that the item can represent; otherwise, it is the number of bits in each 
value that the item represents. Refer to paragraph 4.1 for a discussion of data 
types. 

TVia <'1ancTl-hS niiia-t. C9<a4.<te^ir ^Ka /^.^m c94. Mnn » 4- » ^-i -.w^^ -i m .«-.«..« »«.«.^u c ll '^ <* y 

...w -^wu^w...' U.MWW h^wwAwAj u&Ac \t\jntsKtk GLj^m^fS i^MWLt X LI yaiai^ta\jii. J . ■» . t L ui' NtiLl'ca 

size>. 
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5.4.7 Builtin 

Syntax: 

<builtin attribute>: := builtin 



A name declared with the <builtin attribute> must be one of the names listed in 

^?°^^°o J^PT/T°? ^ name represents a function whose definition is an intrinsic 
part of the PL/I language. 



5.1.8 Character 

Syntax: 

<charaGter attribute>: := {character I char} [(<length>) ] 
<length>::= <extent expression>| • 

<extent expre3sion>: := <expression>[<refer option>] 
<pefer option>::= refer (<reference>) 

^"i^^^,°L<^^^?''^^ constant> declared with the <character attribute> represents 
a character-string value or values. 

II SaP^ot!n^^fhJ^fH^''f.^''^''^^"^ attribute>, the <length> is the maximum number 
°Ll^ I ^^^l ^^^ ^^^^ °^° represent; otherwise, it is the number of 

characters m each value that the item represents. 

I?Ls^^®"^^^^ '°"^*^ satisfy the constraints given in paragraph 5.4.2 for <area 



5.4.9 Complex 

Syntax: 

<complex attribute>: := complex I cplx 

!;"i®^f."/^^°,*'" f/?i°!"'*® attribute>, an item or <literal constant> declared 
?^ fHo <°°°Pi«x attribute> represents a complex arithmetic value or values. 
v=in-^ .o^H®"" ft ! <PiGture attribute>, it represents character-string value or 
values as described in paragraphs 4.1 and 5.4.39. 



5.4.10 Condition 

Syntax: 

<conditlon attribute>: := condition ieond 

A name declared with the <eondition attribute> is a <condition name>. Refer to 
Section 10 for a discussion of conditions. 
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5.4.11 Constant 

Syntax: 

<constant attribute>: := constant 

A name declared with the <constant attribute> is a named constant. A <literal 
constant> Is always declared with the <constant attribute>. Constants cannot be 
assigned values during program execution. 



5.4.12 Controlled 

Syntax: 

<controlled attribute>: : = controlled Ictl 

A name declared with the <controlled attribute> is a variable whose storage 
class is controlled. Refer to paragraph 4.3.2 for a discussion of storage 
classes. 



5.4.13 Decimal 

Syntax: 

<decimal attribute>: := decimal I dec 

An item or <literal con3tant> declared with the <deGlmal attribute> represents a 
decimal arithmetic value or values. 



o.H.it ueixnea 

Syntax: 

<defined attribute>: := {defined !def}<base reference> 

<base reference>: := (<reference>) |<r8ference> 

A name declared with the <defined attribute> is a variable whose generation of 
storage is identified by the <base reference>. Refer to paragraph 4.3.3.3 for a 
discussion of storage sharing through the use of defined variables. 

5.4.15 Dj.ni§n?ji9i;} 

Syntax: 

<dimension attribute>: := [<dim key>][(<bound>[ ,<bound>] . . . ) ] 
<dim key>::= dimension i dim 

<bound>::= {[<extent expre33ion>: ]<extent expre3sion>} |» 
<extent expression>: := <expression>[<refer option>3 
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<default statement>, and the parenthesized list of <bound>3 cannot be omitted!^ 

onli^^Lp'^^^iv^!^""^ ^^^ <dimen3ion attribute> represents array values If 
only one <extent expression> is given, let L be 1 anrf i»<- » h^ tt^ ^ ^ I 

sUed 'dJ^iS iSteger>!''^ ^"^''"'^'' ^"°^ '^^^^''^ ^^^^ '^ - optionally 

If the item has the <parameter attribute> or is part of a <de3criDtor.> a=nh 
<bound> must be an optionally signed <decimal intege?f or an as?e??sk! ' 

If the item does not have the <parameter attribute> or is not oart of ^ 
<desGriptor>, it cannot have an asterisk <bound>. ^ ^ 

;a've'f<r:?;r'op?ioT>.'''' ''' ''"^' attribute>. the <extent expression> cannot 

I^^JSit^^if %:r--^-L- s i^s.s:ij;Ly%a/iiJeg;r ^fr. 
liH™^ fair ty- n^i eLSi^iKffi^^ -ihi^^Jiriif ^^ 

^L;t!%r:5ii^ssr^?t^?£^t2risra%<Ji^^^^^^^ 

5.4.16 Direct 

Syntax: 

<direct attribute>: := direct 

fhfP^°°H^^f°t''®°^"®'^ ''"*' ^'^^ <direct attribute> causes the file-state block 
that It Identifies to be opened with the <direct attribut»> I f^^l It^ 

Ei°'MeaJS^f^\'''^r* attribute> selects the relords of its asaociateJ Jitf let 

S iJpS/oStpSS!"'''""'''''"^ '"'""'^ '''''' ««^- ^° ^-*i- " for'alistSlsf^n 



5.4.17 Sntrv 

Syntax: 

<entry attribute>: := entry[( [<parameter descriptor list>]n 

<parameter descriptor list>::= <parameter de3criptor> 
Lf<paraffieter descriptor>j . . . 

<parameter de3criptor>: := <de3criptor> 

<descriptor>::= <level>[<attribute set>]| 
[<level>]<attribute 3et> 

<attribute set>::= <attribute>. . . 
An item declared with the <entry attribute> represents entry values, 
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If the <parameter descriptor list> is omitted, an entry value represented by the 
.item is invoked only when it is identified by the <entry reference> of a <call 
statement> or when it is identified by the <entry reference> of a <function 
reference> with a null <argument list>. 

An <entry attribute> of the form "entryO" is equivalent to an <entry attribute> 
of the form "entry", except that the former is a complete <attribute> and the 
latter is an incomplete <attribute>. The significance of this difference is 
shown in paragraph 5.2.1.2 and paragraph 5.3.2. 

A <parameter descriptor list> does not restrict the values that may be 
represented by the item. A <parameter descriptor li3t> is significant only when 
an entry value represented by the item is invoked. 

The <parameter descriptor list> must produce a declaration for each <parameter 
descriptor> that is equivalent to the actual declaration of each parameter in 
the entry invoked by each invocation of the entry values represented by this 
item. Such declarations are equivalent only if they contain exactly the same 
<attribute set>s, except that the <parameter descriptor> cannot have: the 
<parameter attribute> or <internal attribute>. 

An <attribute set> of a <descriptor> must be consistent. An <attribute set> of 
a <descriptor> is consistent only if it can be transformed into a <descriptor 
set> as described in paragraph 5.5. 

A <descriptor> of a structure has exactly the same syntax as a <defactored 

declaration> of a structure variable, except that it has no name. Its members 

are declared exactly like the members of a structure variable, except that they 
have no names. 

Example: 

declare F entry(1,2 fixed, 2 pointer, 1, 

2 bit(1),2 bit(4),(10,10) pointer); 

The entry F has three parameters. The first is a structure containing an 
integer and a pointer. The second is a structure containing two bit-strings, 
and the third is a ten-by-ten array of pointers. 



5.4,18 Environment 

Syntax: 

<environment attribute>: := {environment I en v} [(interactive) I (stringvalue) ] 

A file constant declared with an <environment attrlbute> causes the file-state 
block that it identifies to be opened with the <environment attribute>. 

If a completed <attribute set> contains an <environment attribute>, it must 
contain exactly one <environment attribute> with a parenthesized keyword which 
may be "interactive" or "stringvalue." 

A file-state block with an <environment attribute> specifying "interactive" 
causes the execution of each <put 3tatement> that references the file to finish 
its output by writing a linemark. This form of <envircnment attribute> is 
normally used when the data stream attached to the file-state block is an 
interactive device used for both input and output. 
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If a file-state block has an <environment attribute> specifying "strinKvalue " 
if.ff ^h'"" .°f.^ <read 3tatement>, <rewrite statement>, or <write 3tllement> 
IS affected as follows. If a <read 3tatement> has an <into option> referencing 
a scalar variable with the <character attribute> and the <varying attribute" 
the complete record in the file is treated as a character-string vllue and is 
assigned to the variable by a normal string assignment I? a <rewriie 
statement> or <write 3tatement> has a <from option> r;fe;encing a scalar 
n?L'L"" ri'^'f <character attribute> and the <varying attribute"! the record 
If til vLi^Mf'^%?'^^''^ ^ Character string that is equal to the current value 
of the variable. If a <read 3tatement> has an <into option> referencing a 
scalar variable with the <bit attribute> and the <varying attribu?e>" the 
coniplete record in the file is treated as a bit-string value and is assigned to 
st^t.m^n.> iL = %"°''"»^\ faring assignment. If a <rewrite statement> or <write 
3tatement> has a <form option> referencing a scalar variable with the <bit 
attribute> and the <varying attribute>, the record placed in the file will be a 
bit string that is equal to the current value of the variable. This form of the 
<environment> attribute is useful for processing a file containing springs of 
different lengths, especially when the file was not created using PL/I record 

5.4.19 External 

Syntax: 

<external attribute>: := external I ext 

A name declared with the <external attribute> has external scope and is known in 
all <block>s in which the same name is declared with the <external attribute" 
^^H^.tLoH iH.w°!?^^^!)?'^. <block>s, except those <block>3 in which the name is 
redeclared with the <internal attribute>. All declarations of an external name 
must have equivalent <attribute set>s, and all such declarations refer to the 
"' — s " -* - — »«'Se, ■-"»= oaiue uuusbaQb, or cne same condition. 

5. 4. 20 File 

Syntax: 

<file attribute>::= file 
An item declared with the, <file attribute> represents file values. 

5.4.21 Fixed 

Syntax: 

<fixed attribute>::= fixed 



An item or <litepal con3tant> declared with t!~e <fixed attribute> represents 
fixed-point arithmetic value or values. yi-saouwo 



a 
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5.4.22 Float 

Syntax: 

<float attribute>: := float 

An item or <literal constant> declared with the <float attribute> represents a 
floating-point arithmetic value or values. 



5.U.23 Format 

Syntax: 

<format attribute> : := format 
An item declared with the <format attribute> represents format values. 

5.4.24 Generic 

Syntax: 

<generic attribute>: := generic [(<alternative li3t>)] 

<alternative li3t>::= <alternative>[ , <alternative>] . . . 

<alternative>::= <entry reference>when( [<3elector>]) 

<entry reference>: := <reference> 

<3eleGtor>::= <arg 3elector>[ ,<arg 3elector>] . . . 

<arg 3elector>::= »i [<level>]<attribute 3et>| 
<level>[<attribute 3et>] 

<attribute 3et>::= <attribute>. . . 

A name declared with a <generic attribute> is the name of a set of entry 
variables and entry constants. Refer to paragraph 6.9 for a discussion of 
<reference>s to generic names. 

If a completed <attribute 3et> contains a <generic attribute>, it must contain 
exactly one <generic attribute> with an <alternative list>. 

The <attribute>s used in an <arg selector> are restricted to the <attribute>3 
allowed in a <parameter descriptor> as described In paragraph 5.4.17, except 
that these two additional rules apply: 

All <extent expression>3 must be asterisks. 

The <preci3ion attribute> has an extended syntax that permits a range of 
precision values to be specified. 

<precision attribute>: := [precision I prec] 
(<low prec>[:<high prec>3[,<low scale> 
[:<high scale>]]) 

Both <low prec> and <high prec> must be <decimal integer>s and the value of 
<low prec> must be less than the value of <high prec>. Both <low scale> 
and <high 3cale> are optionally signed <decimal integer>s and the value of 
<low 3cale> must be less than the value of <high scale>. Note that this 
. extended form of the <precision attribute> is only permitted in an <arg 
selector> of a <aeaeric attribute>. 
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5.4,25 Initial 

Syntax : 

<initial attribute> : : = I initial ; init} [<initial list>] 
<initial li3t>::= (<initial itera>[ ,<initial item>]...) 

<initial item>::= <factor><initial list>| 

[<factor>]< Initial value>| (<expression>) 

<initial value>::= [+ 1 - I ' ]<literal Gonstant>| 

[+i-]<real constant>{+ j -} <imaginary constant>| 
C+l-r]<reference>l* 

<factor>::= (<expression>) 

If a completed <attribLite set> contains an <initial attribute>, it must contain 
exactly one <initial attribute> with an <initial li3t>. 

If the declaration also has the <static attribute>, the <factor> must be a 
<decimal integer>, the <initial item> must not be (<expression>) , and the 
<initial value> must be <literal constant>s or <reference>s to the null and 
empty built-in functions. 

Evaluation of the <factor> must yield a scalar arithmetic or string value The 
ll^Z ^n.. h ^'"^'^r^ it <=°"^«^*«<^ to a real, fixed-point, binary integer 'whose 
value must be greater than zero. Evaluation of each <exDression> or <rlference> 
m the <initial value> or <initial item> must yield scalar values. 

An <initial attribute> provides an ordered sequence of scalar values that are 
assigned to the scalar components of each generation of the variable when the 
generation is allocated. Mote that the elements of an array are stored in 
row-major order and that the scalar values of the <initial attribute> are 
assigned to ^the elements in row-major order. Refer to Section 4 for a 
uiscuasion 01 array storage and allocation. 

The program is in error if the number of elements in the array is not equal to 
the number of scalar values given in the <initial attribute>, Tt. Tg giso ^n 
error If a scalar variable is declared with an <initial attribute>' that 
specifies more than one value. 

An asterisk <initial value> causes the scalar variable to which it applies to 
not be initialized. 

During compilation of an <external procedure> , the lexical level syntax rules 
are applied before any high level syntax rules are applied. Consequently, a 
<character string constant> or a <bit string constant> beginning with a 
parenthesized <decimal integer> is expanded into a single constant as described 
in paragraph 2.6. 

Example: 

declare x(5) bit(5) initiaK (5) "1 "b) ; 



dec];>re x(5) bit(5) initialC'l 1 1 1 1 "b) ; 

To set all 5 elements of the array to all ones we must write 

declare x(5) bit(5) initiaK (5) (5)"1"b) ; 
or: 

declare x(5) bit(5) initiaK (5) ( 1 ) "i 1 1 1 1 "b) ; 
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5.4.26 Input 

Syntax: 

<input attribute>: := input 

A file constant declared with the <input attribute> causes the file state block 
that it identifies to be opened with the <input attributa>. 

It is an error to execute a <write statement>, <locate 3tatement>, <rewrite 
3tatefflent>, <delete statement>, or <put statement> whose <file option> 
identifies a file-state block that has an <input attribute>. Refer to Section 
11 for a discussion of input/output. 



5.4.27 Internal 

Syntax: 

<internal attribute>: := internal lint 

A name declared with the <internal attribute> has internal scope and is known 
only in the <block> in which it is declared and all contained <block>s, except 
those <block>3 in which it is redeclared. 



5.4.28 irr^dug^i?;? 

Syntax: 

<irreducible attribute>: := irreducible I irred 

An item declared with the <irreducible attribute> represents entry values. When 
an entry value represented by a name declared with an <irreducible attribute> is 

paragraph 6.11. 

An <irreducible attribute> does not restrict the entry values represented by the 
item; its only significance is to force the entry values represented by the item 
to be invoked once for each evaluation of an <entry reference> in a <call 
3tatement> or <f unction reference>. 



5.4.29 Seisl 

Syntax: 

<keyed attribute>: := keyed 

A file constant declared with the <keyed attribute> causes the file-state block 
that it identifies to be opened with the <keyed attribute>. A file-state block 
with the <keyed attribute> may select the records of its associated data set by 
means of character-string valued keys. Refer to Section 11 for a discussion of 
input/output. 
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5. 'J. 30 Label 

Syntax : 

<label attribute>: := label 
An item declared with the <label attribute> represents label values. 

5.4.31 Like 

Syntax: 

<like attribute>::= like<like reference> 

<like reference>::= <identifier>C .<identifier>] . . . 

The <like attribute> is a macro-attribute and is fully described in paragraph 

<klklr±ntll> «i'?n attribute> cannot appear in a <default statement>, in a 
<.ae3criptor>, or m a <generic attribute>. , x.. a 

5.4.32 Local 

Syntax: 

<local attribute>: := local 
An item declared with the <Iocai attribute> represents either label values or 

When a name declared with the <local attribute> is referenced during evaluation 
of a <goto^ statement>. its value must be a label value derived from a <?abel 
prefix> immediately contained in the same <block> that immediately contains the 
declaration of the name. ' ^ •>-=*. is» -ne 

When a name declared with the <local attribute> is referenced during evaluation 
°^ ^? ^"^^r^^o^? ^fo»"™afc>. its value must be a format value derived from a <lah».i 
Self^ratiSSlrthi^nlm^'"^' '" ''' ""^ ^^^^'^'^^ ''^' immedia^e^l ZTtAnl'T^ 

A <local attribute> does not restrict the values represented by the item, except 
when the item is referenced by a <goto statement> or <reraote format> . 

5.4.33 Member 

Syntax: 

<member attribute>: :r member 

An item declared with the <member attribute> must be a member of a structure as 
described in paragraph 5.2.3.1.3. ^uructure as 
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S.'l.j'* Nonvarying 

Syntax: 

<nonvarying attr ibute> : : = nonvarying 1 nonvar 

An iferii declared with the <nonvarying attribute> represents string values that 
all have the same length. The length is given by the <length> specified in the 
<bit attribute> or <Gharacter attribute>. 



5.4.35 Offset 

Syntax : 

<offset attribute>: : = of fset[ ( <ref erence>) ] 

An item declared with the <offset attribute> represents offset values. 
Evaluation of the <reference> must yield a scalar area. 



5.4.36 Options 

Syntax: 

<options attribute>: : = 

options { (constant) I (<option specif icat ion >[ , <option specif ication> ]...)} 

<option specification>: : = {variable I non_quick I support I main I separate_static 
I packed_decimal } 

The <options attribute> is used to provide nonstandard information about 
variables and entry values. Unless the keyword "constant" is specified, an item 
declared with an <options attribute> represents entry values. 

When an entry value represented by a name declared with the <options attribute> 
with the keyword "variable" is invoked, it is assumed to designate a nonstandard 
Multics entry that requires full run-time argument descriptions. An entry is 
nonstandard if it accepts a variable number of arguments or allows a given 
argument to have different <attribute>s each time the entry is invoked. 
Standard PL/I <procedure>s described by this document never need this 
<attribute>. The Multics Programmers' Manual identifies all Multics entries 
that must be declared with the <options attribute> specifying "variable." 

An <options attribute> specifying "variable" does not restrict the entry values 
represented by the item; its only significance is to force all invocations of 
the entry values represented by the item to have complete run-time argument 
descriptions as required by nonstandard Multics entries. 

If a <procedure statement> or <entry statement> contains an <options attribute> 
specifying "variable", that <statement> identifies a nonstandard Multics entry 
requiring complete run-time argument descriptions. 

If the <procedure statement> heading an <external procedure> contains an 
<options attribute> specifying "support", that <external proceciure> Is 
considered to be a Multics runtime support <proGedure>. This <option 
specification> should only be used by systems programmers; its use affects error 
messages printed by Multics. The keyword "support" may only be used with an 
<options attribute> that is contained in the <procedure statement> heading an 
<external procedure>. 
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The <options attribute> may specify the keyword "non quick" if it is cnnf;>in«H 

^^^■i':iiii^>-.^t^^vtL .III. si-j s.:rj£:>"-'" -= 
iusi..rtinTti> T.t'rx, «Li2i°s„^s tiririii ''■'"''"'■" "°"'" - 




p 



byte Previou3 releases of the compiler allocated unaligned dJcfmal af oSlv 1 

IdlnlirlZ dltr.J'""''''.''^ "Packed_decin,al" in the' <op?to;s a?tr?Sit'e> 
Identifier <external procedure>s designed to be compiled with Rel^a.,^ p^ n^ 

^^lllU'.lTJ...'''.l^t. =-L4-: in. a., future releas'^^^h^^SSe^'L^^^^i^v 
__!v____ — ^ ^^^ ^^^ Nu^ioions ai;i;rioute> on a <Drocedura •?i-ai-omont-^ v^ 
suppress this warninffuin ha »n™-,-„,«.»j ^proceaure statement> to 



suppress this warningwill be eliminated' 
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The <options attribute> may speGify the parenthesized keyword "constant" for 
Items that are not entry values. Specification of "constant" causes the 
variable to be allocated in the text section of the object segment. The 
completed <attribute set> of a variable for which "options(constant) " has been 
specified must contain the <internal attribute>, the <static attribute>, and 
either the <initial attribute> or the <structure attribute>. If the latter is 
true, all nonstructure members of the structure must contain the <initial 
attribute>. Except for its allocation, the variable is treated semantically as 
any other internal static variable. It is an error to change the value of a 
variable for which "options(constant) " has been specified during execution of a 
program. 

If the <options attribute> is contained within a <proGedure 3tatement> or I 
<begin statement>, one or more <option specification>s must be specified. | 

If a completed <attribute 3et> contains an <options attribute>, it must contain 
exactly one <options attribute> with either the parenthesized keyword I 
"constant", or with a parenthesized list of one or more <option speGifiGation>s. | 

5.4.37 Output 

Syntax: 

<output attribute>: := output 

A file constant declared with the <output attribute> causes the file-state block 
that it identifies to be opened with the <output attrlbute>. It is an error to 
execute a <read stateraent>, <get statement>, <rewrite statement>, or <delete 
3tatement> whose <file option> identifies a file-state block that has an <output 
attribute>. Refer to Section 11 for a discussion of input/output, 

5.4.38 Parameter 

Syntax: 

<pararaeter attribute>: : = parameter j parm 

A name declared with the <parameter attribute> must appear as a parameter in a 
<parameter list> of the <procedure> in which it is declared. 



5,4.39 Picture 

Syntax: 

<picture attribute>: : = {picturei pic}C "<picture>"] 

An item declared with the <picture attribute> represents character-string values 
whose conversion to arithmetic values or other character-string values is 
controlled by the <picturs>. Refer to paragraph 3.2.12 for a discussion of 
picture controlled conversion and the syntax of <picture>s. 

If a completed <attribute set> contains a <picture attribute>, it must contain 
exactly one <picture attribute> with a <picture>. 



11/77 5-27 



AG94A 



5.4.40 Pointer 

Syntax: 

<pointer attribute>: : = pointer Iptr 
An item declared with the <pointer attribute> represents pointer values. 

5.4.41 Posit ion 

Syntax: 

<po3ition attribute>::= [positioni p03}C (<position>)3 

<position>: : = <expres3ion> 

A name declared with the <position attribute> must be a defined variable 
suitable for string overlay defining as described in paragraph 4.3.3.6. 

If a completed <attribute set> contains a <positlon attribute>, it must contain 
exactly one <position attribute> with a <position>. 

5 . 4 . 42 Precis ion 

Syntax : 

<precision attribute>: : = [<precision key>] [ (<precision> 
[,<scale factor>])] 

<precislon key>;:= precision I preo 

<precision> : : = <decimal integer> 

<scale factor>::= [+ |-]<deciraal integer> 

An item declared with the <precision attribute> represents arithmetic values. 

If the <precision key> is omitted, the <precision attribute> must immediately 
follow either the <fixed attribute>, <float attribute>, <binary attribute>, 
<decimal attribute>, <real attribute>, or the <complex attribute>. . If the 
<precision key> is omitted, the remaining part of the <attribute> must be given. 
If the <scale faGtor> is present, the item must have the <fixed attribute> and 
not the <float attribute>. 

The <precision> specifies the number of digits that is sufficient to express all 
values represented by this item. The <3cale factor> defines the position of the 
decimal or binary point. The point is located k digits to the left of the 
rightmost digit when the <scale factor> is positive, and -k digits to the right 
of the rightmost digit when the <scale factor> is negative, where k is the value 
of the <scale factor> and must be in the range -128<k<127. The <precision> is 
restricted to a nonzero value < 59 if the item has the <deciraal attribute>, to a 
nonzero value < 71 if the~ item has the <binary attribute> and the <fixed 
attribute>, and to a nonzero value < 63 if the the item has the <binary 
attribute> and the <float attribute>T 

When the <precision attribute> is used in a <generic attribute>, it has an 
extended syntax as shown in paragraph 5.4.24. 

If a completed <attribute set> contains a <preoision attribute>, it must contain 
exactly one <precision attribute> with a <precision>. 
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5.4.43 Print 

Syntax: 

<print attribute>: := print 

fu5^^%°°"f^"^^?®°lr«f "^^^ ti^e <P''i°t attribute> causes the file-state block 
t^^l ,i^ Identifies to be opened with the <print attribute>. A file-state block 
with the <print attribute> writes data into its data stream as if it were a 
printer. Refer to Section 11 for a discussion of input/output = 

5.4.44 Real 

Syntax: 

<real attribute>: := real 

H^f^^.h^ ^iff1^^^^■K''^°^'"'® attribute>, an item or <literal constant> declared 

with the <real attribute> represents a real arithmetic value or values. If the 

Item has a <picture attribute>, it represents character-string values as 

described in paragraphs 4.1.6 and 5.4.41. 

5.4.45 Record 

Syntax: 

<record attribute>: :s record 

^>,fi:-^®^°'?!J^*!?L'^®'=i*''!'^ ^^**^ the <record attribute> causes the file-state block 

Itlt IL <l^lntH^l^ll,H^^°l^'^^'^ "^^^ l^^ <record attribute>. A file-state block 
with, the <record attribute> can only be attached to a record data set and cannot 

input/outSut ^ ^^''^*"' '^^^^ ^^^' ^^^^'' *° Section 11 for a discussion of 



5.4.46 Reducible 

Syntax : 

<reducible attribute>: := reducible I red 

An item declared with the <reducible attribute> represents entry values. When 
an entry value represented by a name declared with a <reducible attribute> is 
invoked, It is assumed to designate a reducible function as described in 
paragraph o, 1 1 . 

A^ <reducible attribute> does not restrict the entry values represented by the 
xoem, its onxy significance is to possibly reduce the number of invocations of 
the entry values represented by the item. 
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5.4.47 Returns 

Syntax: 

<return3 attribute>: := returnsCC [<returns de3criptor>]) ] 

<returns descriptor>: : = <descriptor>[ ,<descriptor>] . . . 

<de3Griptor>: := <level>[<attribute 3et>]| 
[<level>]<attribute 3et> 

<attribute 3et>::= <attribute> . . . 

An item declared with a <return3 attribute> represents entry values. An entry 
value represented by a name declared with a <returns attribute> cannot be 
invoked by the execution of a <call 3tatement>. 

A <returns attribute> does not restrict the entry values represented by the 
item, its only significance is to limit the invocation of such entry values to 
the evaluation of <funotion reference>s. 

The <extent expression>s that appear in a <returns descriptor> must be <decimal 
integer>s or asterisks. If given as <decimal integer>3, the extents of all 
values returned by the function are the same. If given by asterisks, each 
invocation of the- function can return a value whose extents may differ from the 
previous invocation. 

The <varying attribute>, <nonvarying attribute>, <aligned attribute>, and 
<unaligned attribute> can appear in a <returns de3criptor>. The use of these 
<attribute>3 in a <return3 descriptor> provides optimization information to the 
compiler but has no effect on the semantics of the language. 

The <return3 descriptor> must produce a declaration that is identical to the 
declaration produced by the <returns descriptor> of the <returns attribute> 
written on the <procedure statement> or <entry 3tatement> invoked by each 
invocation of the entry values represented by the item.* 

ntl NaifOiiOWUC I^CU^ \JX a ■M.»SS»J\,**J<IWV***' UtWW V WW WW..>-f^WWW.AW. .... ^*»»*.«,— — -— _»_. — — 

consistent only if it can be transformed into a <descriptor 3et> as described in 
paragraph 5.5. 

If a completed <attribute 3et> contains a <returns attribute>, it must contain 
exactly one <returns attribute> with a <returns descriptor>. 



5.4.48 SQqugnt^4al 

Syntax: 

<sequential attribute>: := sequential Iseql 

A file constant declared with the <3equential attribute> causes the file-state 
block that it identifies to be opened with the <3equential attribute>. A 
file-state block with the <3equential attribute> selects the records of its 
associated data set in the order in which the records are recorded, unless the 
file-state block also has the <keyed attribute> in which case the input/output 
<statement> may supply a character-string valued key that is used to select a 
record from the data set. Refer to Section 11 for a discussion of input/output. 
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5.i<.48a Signed 

Syntax: 

<signed attribute> : : = signed 

The <3igned attribute> is a nonstandard <attribute> and its use makes programs 
aependent on Multics PL/I. The <signed attribute> influences the representation 
of values m storage. A signed arithmetic variable always contains storage to 
represent the sign of its value. 

If a generation of storage is to be shared or accessed by more than one name 
and one of those names is declared with the <signed attribute>, then none of the 
other names may be declared with the <unsigned attribute>. 



5.4.49 Static 

Syntax: 

<static attribute>: := static 

A name declared with the <static attribute> is a variable whose storage class is 
static. Refer to paragraph 4.3.2 for a discussion of storage classes. 

5.4.50 Stream 

Syntax: 

<stream attribute>::= stream 

A file constant declared with the <stream attribute> causes the file-state block 
that it Identifies to be opened with the <stream attribute>. A file-state block 
opened with the <stream attribute> can be attached only to a stream data set and 
cannot be attached to a record data set. Refer to Section 11 for a discussion 
of input/output. 



5.4.51 Structure 

Syntax : 

<structure attribute> : : r structure 

An item declared with the <structure attribute> must be a structure as described 
in paragraph 5.2.3.1.3. 
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5.4.52 Unaligned 

Syntax: 

<unaligned attribute> : : = unaligned | unal 

The <unaligned attribute> is used in an implementation-defined manner- to 
influence the representation of values in storage. In Multics PL/I, unaligned 
nonvarying bit-string values, unaligned binary arithmetic values, or unali<-ned 
pointer values are aligned on bit boundaries. Unaligned nonvarying 
character-string or decimal arithmetic values are aligned on 9-bit bvte 
boundaries. 

When a generation of storage is to be shared or accessed by more than one name 
all names used to access the generation must have the same alignment 
<attribute>. Refer to paragraphs 4.3.1 and 4.3.3. 



5.4.52a Unsigned 

Syntax: 

<unsigned attribute> : := unsignedluns 

The <unsigned attribute> is a nonstandard <attribute> and its use makes programs 
dependent on Multics PL/I. The <unsigned attribute> influences the 
representation of values in storage. A packed unsigned arithmetic variable does 
not contain storage to represent the sign of its value. An unsigned variable 
may store only nonnegative values. 

If a generation of storage is to be shared or accessed by more than one name, 
and one of those names is declared with the <unsigned attribute>, then all of 
the other names must be declared with the <unsigned attribute>. 
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5.4.53 Update 

Syntax: 

<update attribute>: := update 

A file constant declared with the <update attribute> causes the file-state block 
that it identifies to be opened with the <update attribute>. It is an error to 
execute a <get statement> or <put 3tatement> whose <file option> identifies a 
file-state block that has an <update attribute>. Refer to Section 11 for a 
discussion of input/output. 



5.4.54 Variable 

Syntax: 

<variable attribute>: := variable 
A name declared with the <variable attribute> is a variable. 

5.4.55 Varying 

Syntax: 

< varying attribute>: := varying I var 

An item declared with the <varying attribute> represents string values whose 
lengths may be any value, k, such that 0<k<n, where n is the <length> specified 
in the <bit attribute> or <character attribute>. 



5.5 Attribute Consistency 

To check the consistency of a completed <attribute set> consider the <attribute 
set> to be an ordered set of keywords formed by removing all parenthesized and 
auxiliary parts of each <attribute>. Replace any abbreviated keyword by its 
full keyword and replace all multiple occurrences of a given keyword by a single 
occurrence of the keyword. Let the order of the keywords be the order implied 
by these syntax rules. For this discussion, consider the options keyword to 
apply to the <options attribute> with one or more <entry value optiQns> 
specified. 

If the resulting ordered set of keywords is not described by these syntax rules, 
it is an inconsistent set and the program is in error. If it is described by 
these syntax rules and the constraints are satisfied, it is a consistent set. 

Because file description attributes may be supplied during file opening as 
described in paragraph 11.3, an <attribute set> containing one or more file 
description attributes is considered a consistent set even though its file 
description attributes are only a subset of those described by <consistent fixe 
description>. If the file description attributes of an <attribute set> are not 
a subset of those described by <Gonsistent file description>, the <attribute 
set> is an inconsistent set. 

The validity of <expression>s, <ref erence>s , or <decimal integer>s that are part 
of an <attribute> are not considered when determining the consistency of an 
<attribute set>. Constraints of , that type are described in paragraph 5.4 where 
the semantics of each <attribute> are given. 
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Each <literal constant set> must be produced by the declaration of a <literal 
Gonstant> and each <descriptor set> must be produced by the declaration derived 
from a <descriptor> . A <named constant 3et>, other than an external entry 
constant or file constant, must be produced by a declaration derived from a 
<label prefix>. 

Syntax: 

<con3istent attribute set>::= <condition 3et>|<builtin 3et>l 
<generic set>|<literal constant set>| 
<named constant set> | <descriptor 3et>| 
<variable set> 

<condition set>::= external condition 

<builtin set>::= internal builtin 

<generic set>::= internal generic 

<literal constant set>::= {<arithmetiG> | bit | character } 
constant 

<named constant set>;:= internal label constant[diraension] I 
internal format constant I <scope><entry>constant 1 
<scope>file<Gonsistent file desGription>Gonstant 

<descriptor set>::= <data type><alignment>[dimension.] [member ] [<sign type>] | 

<variable 3et>::= variable<data type><alignment>[dimension] 

<scope class>[initial] [<sign type>] | 

<data type>::= <arithmetic> l<string> I<entry> I structure[like] 1 
pointer loffsetlareaUabelCloeal] I format[local] 1 file 

<ar ithmetiO : : = { fixed I float } { binary I decimal } { real I complex } 
precision 

<string>: := picture [real I complex] ! 

{bit 1 character} I varying i non varying} 

<entry>::= entry[options] 

{reducible returns ! irreduoible[returns] } 

<alignment> : := aligned | unaligned 

<scope>::= internal i external 

<scope class>::= automatic internal I based internal I 

static<scope> i controlled<scope> ! parameter internal I 
defined internal[position] Imember internal 

<consistent file description> : : = <stream description> I 
<reGord description> 

<stream description> : := streamdnput I output[print] 
[environment] } 

<record description>: := record{input I output i update } 

{<sequential description> Kdirect description>} [environment] 

<sequential description>: := sequential[keyed] 

<direct description>: := direct keyed 

<sign type>::= signed i unsigned , I; 
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Constraints : 

An <attribute 3et> of a member of a parameter structure or defined structure 
cannot have an <initial attribute>. 

An <attribute set> containing the <parameter attribute> or the 
<defined attribute> may not contain an <initial attribute>. 

An <initial attribute> cannot be given in the <attribute set> of a structure. 

An <attribute 3et> containing the <signed attribute> must contain either the 
<fixed attribute> or the <float attribute>. 

An <attribute set> ■ containing the <unsigned attribute> must contain the <fixed 
attribute>, the <binary attribute>, and the <real attribute>. 

Note: The <options attribute> is consistent with entry unless "constant" 
is specified, in which case it is consistent with static internal. 
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a given 
Refer to Section 5 



SECTION 6 
REFERENCES 



retJnid hv f'^^^^se of a variable, the value of a named constant, the value 
returned by a function, or the condition identified by a condition name is 
represented m the text of an <external procedure> by a <reference> to a 
declared name. A dec;^r^t;9n establishes the meaning of a name within 
region of the program known as the scope of the declaration 
for a discussion of declarations and scope. 

A <reference> is re?olv^d by finding the declaration to which it refers A 
<reference> is ev^y^at^d by locating the generation of storage or value 
represented by the declared name. A <reference> is resolved by the Compiler and 
is evaluated during program execution. 

Syntax: 

<reference>: := <3imple reference>| 
<subscripted reference> I 
<3tructure qualified reference>i 
<locator qualified reference>| 
<function reference> 

J^^.^f^?!^"f °^ I <reference> depends on the syntax of the <reference>, the 
o^^»^= declared name and the context in which the <referenoe> 

Evaluation of a <reference> that identifies a variable either: yields a 
generation of storage of the variable, yields the current value stored in a 
f«!!^rh?^°° f storage of the variable, or yields an identification of the 
^h P ff • ^^^''!^^°°- * <i'eference> yields a value unless it occurs in one of 
the following contexts: 

In the following contexts, a <reference> yields a generation of storage: 

1. A <target> of an <assignment statement>. 

2. An <index> of a <multiple do>. 

by a <call statement> or <function 



3- An argument, passed by-reference, 
reference>. 



5. 
6. 
7. 



An argument to the "addr" built-in function, unless it identifies an 
unallocated controlled variable. 

A <reference> in a <string option> of a <put 3tatement>. 

A <free referenoe> of a <free 3tatement>. 

A <reference> in a <pseudo-variable>, other than a <pageno pseudo>. 



8. A <referenoe> in a <set option>, <in option>, <into option>, <from option> 
or <keyto option>. 

9. A <target> of a <get itam> in a <get statement> or a <get data ref> in a 
<get statement>. 
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10, 



A <reference> in a <refer option> evaluated as the target of the assignment 
of its evaluated extent. 



In the following contexts, a <reference> is only an identification of its 
declaration and yields neither a value nor a generation of storage: 

1. An <alloGation reference> in a <allocate statement> or <locate stateraent>. 

2. An argument of the "size" or "allocation" built-in function, or the first 
argument of the "convert" built-in function. 

3. A <reference> to an unallocated controlled variable used as an argument to 
the "addr" built-in function. 

Except in these contexts, it is an error to reference a variable whose 
generation of storage has not been allocated. It is always an error to 
reference the value of a variable if no value has been assigned to the variable. 
Refer to paragraph 4.3.2 for a discussion of storage allocation. 

The order of evaluation of the components of a <reference> is undefined and any 
program that depends on the order is in error. 

A <reference>, R, contained in a declaration of X is resolved in the <block> 

that immediately contains the declaration of X, and is evaluated when X is 

referenced or allocated. R is evaluated as if it were referenced in the <bloGk> 

that immediately contains the <reference> to X or caused the allocation of X. 

A <reference>, R, to a defined variable, X, whose <base reference> contains 
isubs or asterisks is mapped as described in paragraph 4.3.3.4 or 4.3.3.5 during 
evaluation of R. Any <referenGe>3 in the <subscript>s of R are resolved in the 
<block> that immediately contains R, but all <reference>s in the <base 
reference> are resolved in the <block> that immediately contains X. H is 
evaluated in its immediately containing <bloGk>. 



6. 1 Simple R eferences 

Syntax: 

<simple reference>: := <identifier> 

6.2 Subscripted References 



Syntax: 

<subsGripted reference>: : = <identifier>(<3ubscript> 
[ ,<subscript>] . . . ) 

<subscript>::= <expression> j » 

Each <expres3ion> must be a scalar valur suitable for conversion to a 
fixed-point, binary, real, integer as described in Section 8. The number of 
<3ubscript>3 must be equal to the number of dimensions declared for the name. 
Refer to paragraph 4.2 for a discussion of array data, and to paragraph 5.4.15 
for a description of the <dimension attribute>. 
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6.3 Cross-Section References 

A <subscripted reference> containing one or more asterisk <subscript>3 is a 
cross-section <reference>. It is a <reference> to the array formed by the 
planes, indicated by asterisks, of the array identified by the reference. The 
number of dimensions of the array is the number of asterisks in the reference. 



A cross-section <reference> containing only asterisk <3ubscript>3 is 
to a <reference> to the entire array. 



eauivalent 



Cross-section <referenGe>s, other than those equivalent to a <reference> to the 
entire array, are usually <reference>s to unconnected arrays. As such they 
cannot be used as the argument to the "addr" built-in function and cannot be 
passed as arguments to array parameters, unless the parameters are declared with 
asterisk bounds. Otherwise, a cross-section <reference> can be used any place 
in a program that an array <reference> is permitted. Refer to paragraph 4.3.1.3 
for a discussion of unconnected arrays. 

Multics PL/I requires that parameters that receive unconnected arguments be 
declared with asterisk bounds. Henceforth in this document, the word "array" 
should be taken to include array values of cross-section <reference>s. 

Example: 

declare A(7,5), B(5,10), C(5); 

A(I,») = B(»,3)+C(»); 

This <statement> computes a one-dimensional array of five values by adding the 
values of the 3rd column of B to the values of C and then assigns them to the 
Ith row of A. Note that a <reference> to C(») is equivalent to a <reference> to 



6.4 Structure Qualified References 

The name of a member of a structure can have a scope which overlaps another 
declaration of the same name. To resolve ambiguity of <referenoe>s to such 
names, the <reference> must be qualified by <containing reference>s to one or 
more of its containing structures. Refer to paragraph 4.2 for a discussion of 
structure data and to paragraph 5.2.3.1.3 for a description of structure 
declarations. 



Syntax: 



<struGture qualified referenoe>: := 

{<containing reference>j.} <member reference> 

<containing reference>: := <3imple reference>! 
<3ub3cripted reference> 

<member reference>: := <simple reference?! 
<subscripted reference? 

Examples: 

A.B.C 

X(I).Y.Z{5,K) 
NODE. ELEMENT 

The rightmost <reference> identifies the variable being referenced. It is 
contained within the .structure identified by the immediately preceding 
<containing reference?, which in turn is contained within the structure 
identified by the immediately preceding <containlng reference?, etc. 
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The rightmost <reference> is said to be fullv qualified if it is qualified by a 
<Gontaining reference> to each of its containing structures. A name declared at 
level n in a substructure has n-1 <containing reference>s if it is fully 
qualified. A <3imple reference> or simple <subscripted reference> to a name 
declared by a level-one declaration is considered a fully qualified <reference> 
to that name. A fully qualified <reference> is never ambiguous. 

The rightmost <reference> is said to be partially qualified if it has fewer 
<containing reference>s than it has containing structures. 

The <sub3cript>s used in a <structure qualified reference> do not have to appear 
immediately following the names to which they are to apply. As long as the 
order of the <3ub3cript>3 is preserved, the <3ub3cript>3 may be moved to the 
left or the right and written after any of the names in the <reference>. Use of 
this feature obscures the meaning of a program and should be avoided. 

The number of <subscript>3 must equal the number of dimensions of the referenced 
name including all inherited dimensions. 

Example: 

declare 1 S(3), 
2 A(4), 
2 B; 

A <sub3cripted reference> to A must contain two <3ub3cripts>, and <subscripted 
reference>s to S or B must have one <3Ubscript>. 

Asterisk <subscript>s may be used to refer to cross-sections of arrays of 
structures or array structure members . 

Example: 

declare 1 3(3), 
2 A(4), 
2 B; 

declare 1 X, 

2 i:(5); 

The following are all valid cross-section <reference>s: 

S(K).A(») S(»).A(») S(»).B S(«) X.Y(«) 

6.5 Reference Resolution and AmbigiMtv 

A declaration is applicable to a <3truGture qualified reference> if it is a 
declaration of a structure member some or all of whose containing structures 
have the same names and the same order as the <containing reference >s of the 
<structure qualified referenoe>. A declaration is applicable to a <simple 
reference> or <3ub3cripted reference> if it is a declaration of the name given 
in the <3imple referenoe> or <3ubscripted reference>. 

Reffsi'ences are r^sgly^cj by looking for an applicable declaration in the <block> 
that immediately contains the <reference>. If no applicable declaration exists 
m that <block>, the next containing <block> is searched until a <block> 
containing an applicable declaration is found. The <reference> is in error if 
no applicable declaration exists in a containing <block>. 

If only one applicable declaration exists in the <block> containing the first 
applicable declaration, the <reference> identifies that declaration. However, 
If the <blook> contains more than one applicable declaration, the <reference> 
must be a fully qualified <referenee> to one of the declarations in that 
<block>, and is resolved to identify that declaration. If it is not a fully 
qualified <reference> to one of the declarations in that <block>, the 
<reference> is ambiguous and in error. 
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The presence or absence of <subscript> lists or <argument list>s does not affect 
the resolution of <reference>s and cannot resolve otherwise ambiguous 
<reference>s. j-suwuss 



6.6 Locator Qualified Refereneea 

Syntax: 

<locator qualified reference>: := <locator qualifier>-> 
<based reference> 

<locator qualifier>: := <reference> 

<based reference>: := <simple referenGe>' 
<3ubscripted refepence>| 
<structure qualified reference> 

The <locator qualifier> must be a <reference> to a scalar locator variable or 
scalar locator-valued function. Its value identifies a generation of storage 
whose data and aggregate type are described by the declaration identified by the 
<based reference>. Refer to paragraph 4.3.2.5 f.or a full discussion of based 
variables. 

It is an error to use a <locator-qualifier> to qualify a <reference> to a 

nonbased variable. Implicit qualification derived from the <based attribute> or 

explicit qualification by an arrow operator is required for all <reference>3 to 

based variables except the <allocation reference> of an <allocate 3tatement> or 
<locate statement>, and the <reference> of a <refer option>. 

Examples: 

P->X 

S. ITEM (I, J )-> TABLE. ENTRY 
F(X+Y)->GAMMA(K) 

HEAD->LIST .NEXT->LIST . VALUE 

The last example shows a based <locator qualified refepence>, HEAD->LIST NEXT 
used as the <locator qualifler> of LIST. VALUE. ' 



6.7 Function Referenoea 

The evaluation of a <function reference> results in the invocation of an entry 
value. The value of the <f unction reference> is the value r-eturned bv the 
invoked entry. ■' 

The syntax of a <function reference> differs from that of a Oubscripted 
reference> only when the <function reference> has multiple or empty <argument 
list>s. In order to recognize a <function referenGe> with a single, nonempty, 
<argument list>, the compiler examines the <subscripted reference>. If the 
declared name identified by the <sub3cripted reference> has no dimensions, the 
■;suD3cripted reference> is a <function reference>; otherwise, it 'is a 
<subscripted reference>. 

A <3tructure qualified ■pefepence> containing two or more <subscripted 
referenoe>s is examined to determine if it is a <function reference>. If the 
declared name identified by the <3tructure qualified peference> has n dimensions 
then the leftmost n <3ub3cript>s are considered part of the <3tructure qualified 
reference>, and any other parenthesized lists must follow the rightmost name. 
If a parenthesized list follows the <3tructure qualified reference> it is an 
<argument list> of the <function peference>. Arguments and <3ubscript>s cannot 
appear in the same parenthesized list. 
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Syntax: 

<f unction reference>: : = <entry referenceXargument list> 

<entry reference> : : = <reference> 

<argument list>::= ( [<expression>[ ,<expression>] . . . ]) 

Evaluation of the <entry ref6renQe> must yield a scalar entry value. A 
<function reference> is distinguished from a <reference> to an entry value by 
the presence of an <argument list>. The <argument list> is empty only if the 
entry has no parameters. 

Examples: 

declare F entryO returns(ptr) ; 
declare G entry(fixed) returns ( bit( 1) ) ; 

A <reference> to F is a <reference> to the entry value of F and is not a 

<function reference>. A <function reference> to the value returned by the 

invocation of F is written as F(). Similarly a <function reference> to G is 

written as G(K) while a <reference> to the entry value of G is written as G. 

Since the entry value may itself be a <function reference>, it is possible to 
have multiple <argument list>3. 

Example: 

declare F entry(ptr) returns(entry(fixed) returns ( float )) ; 

A <reference> to F(P)(I) is a <function reference> which returns a 
floating-point value. A <reference> to F(P) is a <function reference> which 
returns an entry value. A <reference> to F is a <reference> to the entry value 
of F and does not invoke F. 

The entry value may be any <reference> including <locator qualified reference>s 
and <structure qualified reference>s with or without <subsoript>3. The only 
restriction on the <reference> is that it must yield a scalar entry value. 

Example: 

declare F(5,6) entry (fixed, fixed) returns(ptr) ; 

A <reference> to F(I,J) is a <reference> to the entry value of the (I, J) element 
of the array F. A <reference> to F(I,J)(K,L) is a <reference> to the pointer 
value returned by the invocation of the (I, J) element of the array F. 

Example: 

declare 1 S,2 B(N),3 E entryO returns(ohar(») ) ; 

A <reference> to S.B(I).E or any equivalent <reference> such as S.B.E(I), 
S(I).B.E, or S.E(I), are all <reference>s to the entry value of E and are not 
<reference>s to the value returned by E. S.B(I).E(), S.B.E(I)(), or S(I).B.E() 
are <function reference>3 that invoke E. 

The declaration of an entry variable or constant must contain an <entry 
attribute> giving <de3criptor>s of all parameters, and a <returns attribute> 
describing the return value if the entry is to be invoked as a function. Refer 
to Section 5 for a discussion of declarations. 
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&-S Built-in Function References 

A built-in function is an intrinsic part of the PL/I language. All <reference>3 
to buxlt-in function names are <funGtion peference>s in that they refer to the 
value returned by the function. A built-in function name has no entry value and 
cannot be used in contexts that require entry values. Built-in functions that 
take no arguments may be referenced with or without an empty <argument li3t>. 
Refer to Section 13 for a complete discussion of all built-in functions. 



6.9 Generic References 

If the name identified by an <entry ref8rence> in a <function referenGe> or in a 
<call statement> is declared with a <genepic attribute>, the <entry reference> 
is a gen?rj,c pefereqce. The compiler transforms a generic reference into an 
<entry referenGe> to one of the entries specified by the <generic attribute> 
The proper entry is selected by matching the <alternative>s specified by the 
<generic attribute> against the arguments of the generic reference. For 
descriptive convenience the syntax of the <generic attribute> is repeated here. 
Refer to Section 5 for a discussion of declarations. 

Syntax: 

<generic attribute>: := generic[(<alternative list>)] 

<alternative li3t>::= <alternative>[ ,<alternative>] . . . 

<alternative>::= <entry reference>when( [<seleGtor>]) 

<entry reference>: := <peference> 

<3elector>::= <arg 3elector>C ,<arg selector>] . . . 

<arg selector>::= »! [<level>]<attribute set>l 
<level>[<attribute set>] 

<attribute' set>::= <attribute> 

The <arg selector>s of the leftmost <alternatiye> are matched against the 
arguments of the generic reference. An asterisk <arg selector> matches any 
argument; otherwise, an <arg selector> only matches an argument if the argument 
has every <attribute> found in the <arg selector>. The argument's precision is 
considered to match the <arg. desGriptor> only if it lies within the range 
specified by the <precision attribute> given in the <arg selector>. An asterisk 
<extent expression> is considered to match any <extent expression> of the 
argument. 

A structure parameter of a generic entry must be represented by a set of two or 
more <arg selector>s containing <level>s. In this case, the set of <arg 
selector>s must satisfy the constraints on <level>s given for <descriptor>s of 
an <entry attribute> in paragraph 5.4.17. If an <arg selector > does not 
represent a structure parameter, it cannot have a <level>. 

A structure argument matches a set of <arg selectQr>s with <l8vel>s onl" if the 
structure and each member of the structure match the corresponding"" <arg 
seleGtcr> in the set. If all <arg selector>s of an <alternative> match the 
arguments of the generic reference, the generic' reference is transformed into an 
<entry reference> to the <entry reference> given by that <alternative> ; 
otherwise, the next <alternative> is tried. The program is in error if no 
<alternative> matches the generic reference. A generic reference with no 
arguments is transformed into the leftmost <alternative> that has no <arg 
selector>s. 
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Example : 

declare F generic(F1 when( binary, pointer) , 
F2 whenCdecimal , pointer )) ; 

declare FT entry'ifixed binary , pointer ) returns ( fixed) ; 

declare F2 entryCfixed decimal , pointer ) returns ( fixed ) ; 

declare X fixed binary, Y pointer; 

A = F(X,Y); 

In this example, the generic reference F(X,Y) is transformed into the <function 
reference> F1 (X,Y) . 



6.10 Parameters and Arguments 

An argument is an <expression> used in the <argument list> of a <call stateraent> 
or <function reference>. A parameter is a name declared in the invoked 
procedure and used by the invoked <procedure> to reference an argument. The ith 
argument in an <argument list> corresponds to the ith parameter specified in the 
-<parameter list> of the invoked entry. The correspondence between an argument 
and a parameter lasts until the block activation that established the 
correspondence is deactivated by a <return statement> or nonlocal goto. 



6.10.1 Argument Passing By-value or By-reference 

When an argument is passed by-value , it is evaluated and assigned to a unique 
generation of storage in the calling <procedure> and that generation is 
associated with the parameter. Since the generation of storage associated with 
the parameter is not the generation occupied by the original argument, 
assignments of values to the parameter by the invoked procedure do not affect 
the value of the argument in any way. Similarly, changes made to the value of 
the original argument, while the block activation created b" the ] 
the entry is still active, do not affect the value of the parameter, 
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When an argument is passed by-reference , its generation of storage is associated 
with the parameter. The parameter thus shares the same generation of storage as 
the original argument and either can be used to assign values to the generation. 

An argument is passed by-reference only when it is a <reference> to a variable 
whose <attribute>s and extents match the <attribute>s and extents declared for 
the parameter. The following <attribute>s must match: 

<fixed attribute>, <float attribute>, <binary attribute>, <deGimal 
attribute>, <real attribute>, <complex attribute>, <precision attribute>, 
<bit attribute>, <character attribute>, <picture attribute>, <pointer 
attribute>, <offset attribute>, <area attribute>, <label attribute>, 
<forraat attribute>, <entry attribute> , <file attribute>, <varying 
attribute>, <nonvarying attribute>, <aligned attribute>, <unaligned 
attribute>, <signed attribute>, <unsigned attribute>. 

The <parameter descriptor li^t> of an <entry attribute> and the <reference> 
of an <offset attribute> are not involved in the matching process. 

Attributes not included in the above list are not considered in the 
matching operation, but if the argument is an array, then the <dimension 
attribute> of the parameter must give the same dimensionality as the array 
argument. 
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It is an error to pass an unconnected array by-reference to a parameter declared 
with constant extents. 

If an argument is a <reference> to a variable that does not match the parameter, 
It cannot be passed by-reference and is passed by-value. A <literal constant>, 
a <reference> to a named constant, a <reference> enclosed in parentheses, and a 
<reference> to an isub-defined array (not scalar elements of an isub-defined 
array) are considered <expression>s and are passed by-value. 



6-10-2 Argument Conversion and Promotion 

The evaluation of an argument passed by-value includes the conversion and 
promotion necessary to force it to conform to the data type and aggregate type 
of the parameter. If the argument cannot be converted or promoted to conform to 
the parameter the program is in error. Refer to Sections 8 and 9 for 
discussions of conversion and promotion. 



6.10.3 Asteris k and Constant Extents of Parameters 

A parameter may be declared with either constant or asterisk extents. (An 
extent is an array <bound>, string <length>, or <area size>) . If a parameter is 
declared with asterisk extents the asterisks are replaced by the extents of the 
argument that corresponds to the parameter. This replacement occurs each time 
the parameter is associated with an argument and holds only so long as the 
parameter remains associated with the argument. 

For the purpose of determining whether an argument is to be passed by-value or 
by-reference, an asterisk extent is considered to "match" any extent of the 
argument . 

An array parameter that corresponds to an unconnected array argument must be 
declared with asterisk bounds. (Most cross-section <referenGe>3 refer to 
unconnected array values.) 

If a parameter is declared with constant extents, only arguments that have 
identical constant extents are considered to match the parameter. 



6.10.4 Storage of a Parameter 

Since the generation of storage associated with a parameter is always supplied 
by its corresponding argument, parameters have no <initial attribute> and are 
never allocated a generation of storage. The scope of a parameter is always 
internal to the <block> in which the name appears as a parameter. 

It is an error to reference a parameter that is not associated with an argument. 



6.11 Reducibilitv of Funetlona 

If each invocation of an entry produces no side-effects, returns a value that 
depends only on the values of the arguments passed to that invocation, and 
invokes only reducible functions, the entry is a reducible function. A 
si<3g-^f|'?';t^ is any change in the value of any variable, file-state block, or 
data set known outside of the invoked entry or any of its dynamic descendents. 
Any entry that is not reducible is irreducible . 
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During evaluation of an <expression> the order of evaluation of <reference>s to 
irreducible functions is not defined, but each such <reference> is evaluated. A 
<reference> to a reducible function might not be evaluated if the compiler 
detects that such an evaluation would yield the same value as some previous 
evaluation. A <rei'erence> to a reducible function might be evaluated before the 
<statement> in which it is written is executed, but a <reference> to an 
irreducible entry is always evaluated during the execution of the <statement> in 
which it is written. Refer to paragraph 5.4 for a discussion of the <reducible 
attribute> and <irreducible attribute>. 
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SECTION 7 
EXPRESSIONS 



There are three kinds of <expression>3: primitive expressions, prefix 
expressions and infix expressions. A Drimitlvs expression is a <reference> or a 
<literal constant>, a prefix expression is a prefix operator preceding one 
operand, while an infU expression is an infix operator between two operands. 

An operand is one of the three kinds of <expres3ion>3. 

The value yielded by an <expres3ion> has a data type and an aggregate type. 
Since <expression>s always yield values of the same data type and aggregate 
type, except for changing array-extents, they are characterized by their data 
type and aggregate type, and are referred to as: scalar <expres3ion>s, array 
<expression>s, scalar pointer <expre3sion>3, etc. 

The data type of an <expression> is one of the data types described in paragraph 
4.1, and the aggregate type is one of the aggregate types described in paragraph 



7- 1 Evaluati on of Expressions 



1 .1 



Evaluation of Primitive Exnreaflloi^,.^ 



Since primitive expressions contain no operators, their evaluation consists 
solely of evaluating a <reference> or a <literal constant>. 

The aggregate type and data type of the value yielded by evaluation of a 
primitive expression are determined by the declaration of the name identified by 
the <reference> or the declaration of the <literal constant>. If the primitive 
expression is a <function reference>, the aggregate type and data type are the 
aggregate type and data type of the value returned by the function. 

The value yielded by evaluation of a primitive expression is the value of the 

variable or constant identified by the <referenoe> or <literal constant>. If 

the primitive expression is a <function referenoe>, the value of the evaluated 
primitive expression is the value returned by the function. 



7-1.2 Evaluation of Prefix Expreaaions 

The evaluation of a prefix expression consists of: 

1. The evaluation of the operand. 

2. The conversion of the value of the evaluated operand to the data type 
required by the operator. If the operand is an aggregate, each scalar 
component is converted to the required data type. 
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3. The application of the operator to the converted value of the operand If 
the operand is an aggregate, the operator is applied to each scalar 
component of the aggregate. 

The result of the evaluation of a prefix expression is a value whose aggregate 
type is the aggregate type of the evaluated operand. The data type of each 
scalar component of the result is the data type of the corresponding scalar 
component of the converted operand. 



7.1.3 Evaluation of Infix Expressions 

The evaluation of an infix expression consists of: 

1. The evaluation of both operands. 

2. The promotion of the two operands to the highest common aggregate type as 
described in Section 9. . 

3. The conversion of the operands to data types acceptable to the operator. 
If the operands are aggregates, corresponding scalar components are 
converted to the required data types. 

4. The application of the operator to the converted values of the promoted 
operands. If the operands are aggregates, the operator is applied to each 
pair of corresponding scalar components of the operands. 

The result of the evaluation of an infix expression is a value whose aggregate 
type is the common aggregate type of the promoted operands. The data type of 
each scalar component of the result is determined by the data types of the 
corresponding scalar components of the converted and promoted operands. 

7.1.4 Order of Evaluation 

Ju® nf^T®'' °^ evaluation of an <expression> is determined by the precedence of 
the PL/I operators and by the parenthesization of subexpressions. 

Within a pair of parentheses, operators are evaluated according to their 
precedence. Operators of higher precedence are evaluated before operators of 
lower precedence. 

Operators of equal precedence are evaluated from left-to-right, except for the 
exponentiation and prefix operators which are evaluated from right to left. 

The precedence of PL/I operators is: 

Highest 

** " prefix + prefix - 

* / 

infix + infix - 
I I 
I I 

="=<'<>"> <= >= 

& 

V I 
Lowest 

The order of <expres3ion> evaluation is determined by the precedence of 
operators and by parenthesization. However, within these constraints, the order 
of evaluation is not defined. A program that depends on any of the following is 
m error and the results of its execution are not defined: 

1. The order in which operands are promoted to higher aggregate types. 
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2. The order in which operands are converted to different aata types. 

3. The order in which the scalar components of aggregate operands arP 
converted and operated upon by infix or prefix operators oPe^-ands are 

4. The order in which <basic expression>3 are evaluated. 

^- Jp^J^.n?h?"*'L'''^^''^'''V '"«<^"°ible <function reference> is evaluated An 
irreducible <function reference> is evaluated once for each occurrenc^ of 

ex;iainerSr?.K?f'''""' '" ^'^ '''' '' ^ <external procedure> except ll 



7.1.5 Opt ional Evaluation 



e 
the 



If the result of an operator can be determined without evaluation of one or mor 

nL.lL°^^''^'"^\^'"^ "° "P^'"^"^ contains irreducible <function reference>s ?h- 
operands are not necessarily evaluated. 'eierence^s, tn- 

Jhr°!'"^T.''^!i^f*P®"'^^ ?" "^^ ^"^^ evaluation of all operands is in error and 
the result of its execution are undefined. Similarly, a program that deoends on 
an operand not being evaluated is in error. ^Brara tnat aepends on 

The f.ollowing are invalid: 

if p=null ! p->x=5 then 
if x=0 1 y/x then 



lLli^iZ^^''%°^ t" <^^P':s"ion> or <reference> does not depend on 
contained <function reference>. then that <function referen 
necessarily evaluated. v-^iu„ reieren 



the value of a 
ce> is not 



7.1.6 F.vnr^^^zinn Ctfsln^^-i^*. ^^^ r» j^^.^ 

^. -__»w.. t. . a.i.t4a & Ami gfiwi ^^uiiu 1 Ui.on 5 

JJ^ l°^4l^^^1t''l^ and.«=ondition prefix> allow a program to detect and respond 

Section' 10%or frfn^H-"''^ •^^^'^'^^"'^ program known as conditions . Referto 
section 10 for a full discussion of conditions, signals and <on unite s. 

ihior^r^^' ^^^ °'"'^®'* '" "*'^°*' conditions are detected and the frequency with 

?exoresJ?on> Tf .""" ■"°' ^«fi"«^- This is due to the fact that tSe oJder o? 
<expression> evaluation is not strictly defined, 

e?a?Jai?on JJ^\ ^"^ signalled during <expression> evaluation cause the 
^hf^^^^ -^^ suspended and control to enter an <on unit>.- In most cases 
cSnd^M^n^" ''h'!1 ^rr ^^ ^^^ <°" ""i<^> returns control to the poiSt SSerS the 
10 S to Lr?f ^ ^^'^^' Z^^^" '° ^""^ description of each con3!tiSi in parlgrajh 
10.4 to see if a particular <on unit> can return control. 

evaluatiSn^'^^nnn!^^'^ " ^ '""^'^ ?^ ^ condition signalled during <expression> 
<Stemen?> T™^ J?°*'f J'!:'^''^^^ ^^^^ ^""^ assigned values by the interrupted 
0? s'J™' a^'ass^M-' It" th* ""i^>. °^"."°t assign a value to any generation 

Example: 

on zerodivide begin; 



end; 
C,a = 0; 
C = A/B + A/B 
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In this example: 

1. the value of C is not defined upon entry to the <on unit>. 

2. if the <on unit> does a normal return the result of the program is 
undefined, regardless of whether or not the <on unit> assigned a new value 
to B. 

3. the number of times the zerodivide condition is signaled is not defined 
but at least one will be signalled. ' 



7 . 2 Form al Syntax of Expressions 

The syntax given in this section defines the precedence of operators and an 
order of evaluation of <expression>3. The actual order of evaluation may differ 
from the order expressed by these syntax rules only in the following cases: 

1. If the result of an operator can be determined without the evaluation of 
one or more of its operands, and no operand contains an irreducible 
<function reference>, the operands need not be evaluated. 

2. The order of evaluation of the <basic expression>s contained within an 
<expression> is not defined. 

Syntax : 

<expression>: : = <expression seven> ! 
<expression>J_<expression seven> 

<expression seven>::= <expression six>i 
<expression 3even>i<expression six> 

<expre33ion six>::= <expre3sion five>| 

<expres3ion 3ix>{= !•*=!<!"<!<= |>r>|>= Xexpression five> 

<expres«ion five>::= <expre33ion four> I 

<expression ffve> i i <expre3sion four> 

<expre3Sion four>::= <expression three>i 

<expre3sion fourX-t- l-}<expression three> 

<expres3ion three>::= <expression two> I 

<expression threeX •! /}<expression two> 

<expression two>::= <ba3ic expre3sion> Ksimple expression>| 
<parenthesized expres3ion> i<expression one> 

<expression one>::= Kbasic expres3ion>i 

<parenthe3lzed expre33ion>)**<expre33ion two> 

<simple expression>: := {+ I- I 'Xexpression two> 

<parenthesized expression>: := (<expression>) 

<basic expre3Sion>: := <referenGe> Kliteral Gonstant> |<i3ub> 

Note that an <isub> is valid only in <expression>3 that are part of the <base 
ref«rence> of a <defined attribute>. 
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7.3 Operators 



7.3.1- Arithmetic Operators 

The prefix arithmetic operators are: 

+ plus 
minus 

The infix arithmetic operators are: 

* add 

- subtract 

• multiply 
/ divide 

•* exponentiate 



7'3.1.1 Operand Conversion for Arithmetic Operators 

^niranH^^° Operators require arithmetic operands and force conversion of their 
t^ InTt^. J^^/?T"i2"^ ^'■^ performed according to the rules given in Section 
8, and the target for the conversions is given by the following rules: 

1.. A character-string operand, X, is converted to an arithmetic value, X' 
where the data type of X' is the data type that a fixed-point, decimal 
in lale"of°X '""*°^^^''" '^^'°' """^"^ ^^"^ ^^^'^ converted to, had it appeared 

2. A bit-string operand, X, is converted to an arithmetic value, X', where the 
data type of X' is the data type that a fixed-point, binary, real value of 
precision (71,0) would have been converted to , had it appealed in pllcl of 

3. If the operands of an arithmetic infix operator differ in mode, base, or 
Srthefoiro'wYng rules'. =°"^^'-'«^ ^° ^''^ ^^^^'^ -^«. ''^«. and type given 

The fcarget attributes are: complex, if the modes differ; binary, if the 
bases differ; and floating-point, if the types differ; otherwise, the target 

has the common mode, base- "r fcvno tv,* n-o.^.-: ..-__ .^ ^u. • j ° 

jj~- ... . ". "-^"^i -• -jr-- ."^ 1-. =w4..jj.^^i, uv i,iiB (.wo operands may 

li^fi ""'^ causing any conversion. If a conversion occurs due to a 
difference in mode, base or type, the precision of the converted operand is 
given by the rules in paragraph 8.2.10, v^r^n^ 

The exponentiation operator is an exception to these rules. See Section 

1.^.1. C.J. 

Example: 

declare A oharaeter(5) , B float binary(27); 
C = A+B; 

In this example, A is converted as if it were a real, fixed-point, decimal 
integer of precision (59.0). The target mode is real, the target base is 
^l^t^l' ^1'^A ^^'■set type is floating-point. Because B already has the 
fi«!??n,"JL'"A*""KV ^* ^^ not converted, but A is converted to a real, 
floating-point, binary value of precision (53). 



■»• 
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7'3.1.2 Results of Arithmetic Operators 

frin \l\tZZZ'^l^,^''^ l*^" converted, the operation is performed. The result 
the converted nnl/^ni"* "h°?! ^^P^' ''"*• ''°'^^ ^""^ precision are determined by 
the converted operands and the operator as described in the following sections. 

o dtasht\^<^^°».l"".^'''°'"''. 7^"^'^ °^ precision (p) contains only the most significant 
p digits of the true arithmetic result rounded at the (p+Dth digit. 

dl^i'?r^/^\°^V"^'''°'"A """"^^ °^ precision (p) contains the most significant n 
digits of the true arithmetic result, where n is 27 if p<27 and n is 6^ if d>27 
When the final result of the evaluation of an <expres-sion> is assigned to ; 
variable or to a generation of storage to be passed as an argument, nsfgntf leant 

?f't'hVt'a7ge\Ts1acked'%rt',Vli?.""'''°'^'^' '"* "^ ^igniflclnt digits'a^e'stored 
i: the target is packed. In the latter case, excess low order digits are truncated. 

The precision rules of fixed-point operations are such that no high order diaits 
rLni^f true arithmetic result are lost. Unless the operation is div?sion or^thl 

bin^ivl'^ '"^'1'°" ^'f '^T"^'^ ^*"' ^^"""^ °*" ^^^ "^=''i"« ^59 for decimal or 7^ for 
lJi.l7r '..IZ ^?H o'-der digits of the true arithmetic result are lost. In the 
rif»??^ =ro i' . P'-«=^3ion rules given below indicate exactly when low order 



7.3.1.2.1 Prefix Operations 

The prefix operators plus and minus yield a result havine the tvoe basp >nnri» 
and precision of the converted operand. The value of the result of a olus 
operator is the value of the converted operand. The value of the resuU of a 
minus operator for a real operand is the value of the converted operand with iti 
fs^theT/lut^-.f ?h* "''"^ °f ?^ '"''^^ "' ^ '"i""^ operator for a complex operani 
parts reversed =°"verted operand with the signs of the real and imaginary 



7.3.1.2.2 Infix Operations 

I If the operation is exponentiation, see Section 7.3.1.2.3. 

If the converted operands are floating-point values, the result is a floatinn-DOint 
3hii'!%h^*'* ""•" '"^ ""S^^ "■* ^^^ =°'""'°" "="« ^"-^ ™°<^« °f the converted opirands! 
oSerands! '"■*""°" °^ '^*>« '"""" ^^ ^he greater of the precisions of the two 

If the converted operands are fixed-point values, the result depends on the 

operator and fch<» e-nnvi^wtoA nn.-^,,^. ,- j *. . ,../..>-_ - ... ^ = H=""a un t,ne 

- . -. ,, — ^ „„ -c**-« j.wc\j wjr vac ioij.owing; 

Let N be 71 if the common base is binary and let M be 59 if the ooramon base 
IS decimax. 

o?*tL'1eoond'ope?and'''°" °' ''= ''''' °''^""'^' ^"^ ^"'^^ '^ ^^« "-"^^i- 

«;i,f-*.hi'.*''^K^°" is_^ addition or subtraction the result is a fixed-point 
In-rLn, TV. * ^J". "°**^ *'■' ^^^ oommon base and mode of the converted 
operands. The precision of the result is: 

(Bin(H,max(p-<],r-s)+max(q,3)*1),max(q,3)) 
The value of the result is the sum or the difference of the two operands. 
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If the operation is multiplication, the result is a fixed-point value whose 
prelis'i"on"'o°f'the'"'rei'ult°T3T" '"' '"^ """'^ °' '""^ converted operands. The 

Cinln(N,p+r+1 ) ,q+s) 
The value of the result is the product of the two operands. 

and''mnH?^^^o^°^w ^^ division, the result is a fixed-point value whose base 
and mode are the common base and mode of the converted operands. The 
precision of the result is: 

(M,H-p+q-s5 

«oonrt^"* T°/ .\^^ '■""i" i= ^''^ quotient of the first operand divided by the 
^f^n^^;. J/h- *"'"°V!u'' «"«1=' the precision of the result, the least 
vi!? ^l digits of the quotient are truncated to form the result. Note 
K„l ^^ lu^'i^^ always has the maximum precision allowed by the common 
base, and that as many fractional digits are preserved as is allowed by the 
T.V^"^'-, ^^^J'S "^l!^® values as operands of other fixed-point computations 
can easily lead to situations that produce the fixedoverflow or size conditions. 

Example: 

1/3+25 

This example produces fixedoverflow because the division yields 333 3 
and when the addition aligns the decimal points, the sum exceeds the limit 
N, of the machine. 

I!l!*.'^S''^^w ''"il'^.-\" ftJiction described in paragraph 13.2.8 can be used to 
control the precision of the result of fixed-point division. 

1 

7.3.1.2.3 Exponentiation 

operal3ds^arfollows-°" °^^''^^°'' ' <^etermine the target attributes and convert the 

lL^*l%JJ-''^r '^r''%V i^ fixed-point, let (p,q) be its precision. Let H be 71 if 
the base of the first operand is binary, and let N be 59 if the base of the 
first operand is decimal. 

1. If the first operand is fixed-point, the second operand is a fixed-point 
<real constant> with a scale factor of zero, the value, E, of the second 
^r "" -- r" , — ~2 """ ^ i"-^ ' ' i^- i^n , <-iicn bne resuic IS rixed-ooint with 
the base and mode of the first operand. The precision of the result is: 

((p+1)«E-1,q»E) 
So conversion is performed on the operands. 
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2. If the second operand is real, fixed-point, with precision (r,0), and case 
If ,11 "°';/PPly' f^^Ven the result is floating-point with the base and mode 
of the first operand. The first operand Is converted to floating-point 
The precision of the result is the precision of the converted first opirand 
No conversion is performed on the second operand. 

^' Th/hil-*'", ?" J "°r ^^^^ ^ applies, then the result is floating-point. 
The base and mode of the result are determined according to the target 

t^r=i."mLr\" " t^^"°" hb^-^- ^^^ operands are converted to fhe 
target mode, base, and type. The precision of the result is the greater of 
the precisions of the converted operands. 

loDro^imlMnn^.^Y* exponentiation operation is normally a machine-dependent 
fhr™ w ° ^, '■^"«<^ ^° the power Y, where X is the first operand and Y is 
follows : °P«'"^"<'- H°«ever, there are cases for which X"Y is defined as 

If X and T are real values: 

If X<0 and neither case 1 nor case 2 above applies, the error condition is 
signalled • 

If X=0 and Y<0 , the error condition is signalled. 

If X=0 and Y>0, the result is 0. 

If X>0 and Y=0, the result is 1. 
If X is complex and Y is real: 

If X=0 and Y>0, the result is 0. 

If X=0 and Y^O, the error condition is signalled. 

If XiO and y=0, the result is 1. 
If Y is a complex value: 

If X=0, the real part of Y>0 , and the imaginary part of Y=0, the result is 

condmoTis 'si'gn'aued. "'''' °' '-° °' ''"* "''''"''' '^'' '' ^^°' ^^« «-- 
If XiO and Y=0, the result is 1. 



7.3.2 Bit-string Operators 



The bit— atrinff nnArahr 



complement 
I Inclusive or 
& and 
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7.3.2.1 Operand Conversion for Bit-string Operators 

Bit-string operators require bit-string operands and force conversion of their 
operands to bit-strings according to the rules given in Section 3. The lenaths 
of the converted operands are defined by the following rules: ' 

the^chlralter-str^ operand is converted to bit-string of the same length as 

An arithmetic operand is converted to a bit-string whose length is defined 
in paragraph o.S.o. 

7.3.2.2 Results of Bit-string Operators 

The result of the complement operator is a bit-string value whose length is 
length of the converted operand. The result value is the complement of 
value of the converted operand (each 1 becomes a 0, and each becomes a 1). 

The bit-string infix operators produce a bit-string value whose length is the 
maximum of the lengths of the two converted operands. Prior to evaluation of 
the operator, the shorter operand is effectively padded on the right with zero 
bits until It IS the length of the longer operand. Each bit of the result is 
developed by performing the indicated logical operation on the oorrespondine 
bits of the two operands. The following table defines the logical operation! 



s the 
the 
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l^'^^^ Second Result Result 

Operand Operand of And of Or 

; 1 

I 1 1 1 



1 

7-3.3 Concatena te Operator 
The 



ITt .t^'^nl^^T^t °^t''^^°l .is !!• It is an infix operator that yields either a 
Dit-stnng or character-string. 



7-3.3.1 Operand Gonvepsion for ConnahgnTi^lTi 

If both operands are bit-strings, no conversion occurs and the result is a 
bit-string; otherwise, the result is a character-string and both operands are 
?°:^r^J:^^^'^° ^^^^'•^^^^r-f ^i^ss according to the rules givin in Section 1 The 
lengths of the converted operands are defined by the following rules: 

cSnvSiS;^5;Ls°K'vrin1ar2°?airi^2.?! ='^--^— ^^"« --''^ing to the 

leng?rrflL°?it!S?ring!°""'"''' '° ' character-string whose length is the 

7.3.3.2 Result of Concatenation 

The result is a string whose type is the common type of the converted ooerands 
and Whose length is the sum of the lengths of the converted operands! "^^"^^""^^ 

The value of the result is the converted value of the first operand concatenated 
with the converted value of the second operand. operana concatenated 

7.3.4 Relational Operator!^ 

The relational operators are: 

= equal 

"= not equal 

< less than 

"< not less than 

<= less than or equal 

> greater than 

~> not greater than 

>= greater than or equal 
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7-3.^.1 Operand Conversion for Relational ODeratofa 

Comparison is performed between values of the same data type. If the operands 
are of different types, they are converted according to the following rules: 

If either operand Is arithmetic or declared with a <numeric piGture>, the 
operands are converted as if the operator were an arithmetic infix operator. 

If one operand is a character-string and the other is a bit-string, the 
bit-string is converted to a character-string whose length is that of the 
bit-string. 

If one operand is an offset value and the other is a pointer value, the offset 
value is converted to a pointer value. 

All conversions are performed according to the rules given in Section 8. No 
other conversions are performed. 



7.3-4.2 Types of Comparison 

Comparison is defined for all data types except area data. Except for those 
cases given in paragraph 7-3.4.1, both operands must be of the same data type. 

Character-string, bit-string, and real arithmetic values may be compared using 

any relational operator. Complex arithmetic, label, format, entry, pointer, 

offset, and file values can only be compared using the equal and not equal 
operators. 

Arithmetic values and character-string values declared with a <numeric picture> 
are compared algebraically. 

Character-string values, other than those declared with a <numeric piGture>, are 
compared by extending the shorter operand to the length of the longer operand by 
padding the shorter on the right with blank characters. The two strings are 

then comnaperi fT»oin 1 «»ff_h,-i_i»i irh*- no-imr *-Vn<. ninxT __ii-4..: __• 

the MPM Reference Guide. 

Bit-string values are compared by extending the shorter operand to the length of 
the longer operand by padding the shorter on the right with zero bits. The two 
operands are then compared from left-to-right with comparing less than 1 . 

Label values compare equal only when they identify the same <3tatement> and the 
same block activation record. Refer to Section 3 and paragraph 4.1. Note that 
a label value that identifies a <label prefix> on a <null 3tatement> does not 
compare equal to a label value that identifies any other <statement>. 

Format values compare equal only when they identify the same <3tatement> and the 
same block activation record. Refer to Section 3 and paragraph 4.1. 

Entry values compare equal only when they identify the same entry and the same 
block activation record. Note that multiple <label prefix>3 on an <entry 
3tatement> or <procedure 3tatement> do not produce entry values that compare 
equal because each <label prefix> results in the creation of a unique <entry 
statement>. 

Pointer values compare equal only when they identify the same generation of 
storage, or when they are both null. 
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I ItLn Tr-L It ^?"^^ "^'^^ ^^^^ identify the same generation of storage ih 

in lla d^fflrln, l^l^ ^^^°^ compare equal if they identify generations of storage 

tdPn^?.ft T ^^^ u""^"^^ ®"^^''® history of allocation and freeing is 

Identical. Two areas have identical histories only if one has been assigned to 

arL Sr'if fdentio.T^r"' '''°°^'." °r, '"^« oP^-atLns were performed on'e!?her 
area, or if identical sequences of allocate and free ■ ooerations hav(» h^^n 
performed on the areas. Two offset values also comparraquL^Shen Ley are Toll 

Jariable°or arei^'Sari.hL °//^^^\ ^^^"^ identifying a generation of a structure 
y^rif 'i • variable does not necessarily compare aaual to a locato" va^ "e 
tS: arJr"^ loLtli^Lrf °' ^^^ structure or' first 'geneJ^tion anocate^In 

:uL"%^S^irLli;J\^;:riS^S^^^ ^^^""^"^ ^^ ^^« --^- Pr^gra.3\h^t'°d;pe'nr^:n 
File values compare equal only if they identify the same file-state block. 

7-3.4.3 Results of Relatinna l QDerahnp? 

of^^?in^th °f ^^"^^^ compare the values of their operands and yield a bit-string 

nfhoi!^ .1' ?^® ^^^"® °^ ^^^ ''^^"1^ i= '"""b if the relationship is true- 
otherwise, the value of the result is "0"b. -^""ouj-tj xa ^rue, 
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SECTION a 
CON VERSION OF DATA TYPES 



As defined in Section, 4, a data tvoe is a <?,»<■ r,r w=i„== p u 

'^•■' Contexts That Fnr-f^^ Convarr^-jnn 

ircal!id tSrLS^^'S "'"'' '° '' converted. The resultant data type 



1. 



The value of the <expression> of an <assignment 3tatement> is converted to 
stateient>!'^' '°°'^''"^ '° '^^ ^^^^ '^^^ °^ '^^ <'^^^-'> of the°<L'siInment 

2. The value of an argument of a <functiQn r-eff^rsnoB^ ^,. ^^an s*-^ -- -• - 

4. The operands of an operator are converted to conform to a data tvns 
determined by the operator. Infix operators convert the?r operands to a 

integer? ' ^""^^ '''°""^' ^^ converted to a fixed-point, binary, real, 
6. The value of a <looator qualifier> is converted to a pointer value. 
'• cSLSeJ-string!'"'"" °''"°°' °^ " <««^ 3tatement> is converted to a 

'• cKrlci^rJfring/^'^ °''''°"' ''^ '*^"^^''°'" °P"°°> ^« converted to a 
9. The value of a <title option> is converted to a character-string. 
''' ?oTcLfac?eJ-s?ring?"''"* '^'" ''"^^" ''^ ^ <P"* 3tatement> is converted 
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11. A value extracted from an input data stream by a <get statement> is 
converted to conform to the data type of the list element to which it is 
assigned. If the conversion is controlled by a <data format>, the 
character-string value from the data stream is first converted to the data 
type specified by the <data format> and is then converted to the data type 
specified by the list element to which it is assigned. 

12. The values of all <expression>3 in a <format specification list> are 
converted to fixed-point, binary, real, Integers. 

13- The value of a <return value> is converted to conform to the data type 
given in the <return3 attribute> of the <entry 3tatement> or <procedure 
statement> whose execution created the current block activation. 

14. The value of the <expression> in an <if statement> is converted to a 
bit-string. 

15. The value of a <while expression> is converted to a bit-string. 

16. Each value assigned to the <index> of a <multiple do> is converted to 
conform to the data type of the <index>. 

17. The value of the <expression>-in an <extent expres3ion> is converted to 
conform to the data type of the <reference> in the <refer optibn> of the 
<extent expre3sion>. 

18. The value of the <expression> in an <extent expression> is converted to a 
fixed-point, binary, real, integer. 

19. The value of each <expre3sion> in a <3ubstr pseudo> is converted to a 
fixed-point, binary, real, integer. 

20. The value of a <factor> in an <initial attribute> is converted to a 
fixed-point, binary, real, integer. 

21. The value of an <initial value> in an <initial attribute> is converted to 
conform to the data type of the variable of which it is an initial value. 



8.2 Cppvgr?j,<?q Ruj?? 

The language defines the following kinds of conversion: 

Pointer to offset 

Offset to pointer 

Character-string to arithmetic 

Character-string to bit-string 

Bit-String to arithmetic 

Bit-String to character-string 

Arithmetic to character-string 

Arithmetic to bit-string 

Arithmetic mode conversion 

Arithmetic type, base, and precision conversion 

Format controlled conversion 

Picture controlled conversion 

No conversions are defined for label, entry, format, file, or area data. 
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B.2.1 Pointer to Offset Conversion 

A pointer value identifying a generation of a based variable allocated within an 
area, A", is converted to an offset value identifying that same generation. In 
order for the conversion to occur, either the offset must have been declared 
with an <offset attribute> containing a <reference> that identifies A, or the 
conversion must have resulted from a <reference> to the "offset" built-in 
function whose second argument was A. 



a. 2.2 Offset to Pointer Convarsinn 

An offset value identifying a generation of a based variable allocated within an 
area, A, is converted to a pointer value identifying that same generation. In 
order for the conversion to occur, either the offset must have been declared 
with an <offset attribute> containing a. <reference> that identifies A, or the 
conversion must have resulted from a <reference> to the "pointer" built-in 
function whose second argument was A. 



3.2. 3 Character-String to Arithmetic Convepaion 

If the target has any of the type, base or mode omitted, the missing 
<attribute>s are taken from the set: fixed, decimal, real. If the target 
precision is omitted and the target is fixed-point binary, the precision of the 
target is 71. If the target precision is omitted and the target is 
floating-point binary, the target precision is 63. If the target precision is 
omitted and the target is fixed-or floating-point decimal, the target precision 
is 59. 

If the string is a null string; or contains only blank characters, the value of 
the result is zero. 

If the string is not null or all. blank, it must be described by: 

<valid 3tring>::s [<blank>. . . Knumeric constant >[ <blank>. .. ] 

<numeric Gon3tant>::= [•t-|-3<arithmetic con3tant>| 
[••-i-]<real constant>{+|-}<imaginary constant> 

If the string is not null, blank, or described by this syntax, the conversion 
condition occurs. 

The character-string value is converted to its intrinsic arithmetic value. That 
value is then converted to conform to the type, base, mode and precision of the 
target. 

During the conversion from character-string to arithmetic, the conversion, size, 
overflow or underflow conditions may occur. The conversion condition occurs 
when the character-string is invalid as previously described. The size 
condition occurs when the target data, type is fixed-point and its precision is 
insufficient to represent all of the integral digits of the converted value. 
The underflow or overflow, conditions occur when the target data type is 
floating-point and the value is too small or too large to be represented. Refer 
to Sections 10 for a full discussiott of conditions. 

Examples : 

Character-string Result 

"5.63" 5 or 5.63 depending 

on the target 
"" 

""iOe" conversion condition 
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U . 2 . 4 Character-String to Bit-String Conversion 

Let X be the string to be converted. 

If X is a null character-string, it is converted to a null bit-string, X'; 
otherwise, it is converted to X', where X' is a bit-string of length n, where n 
is the length of X. For !c=1,2,,.,n, the kth bit of X' is if the kth character 
of X is 0, and the kth bit of X' is 1 if the kth character of X is 1. If the kth 
character of X is neither nor 1, the conversion condition occurs. 

If no target length is given, the result is X'. 

If the target length is greater than n, X' is extended on the right with zeros 
until it is the length of the target. The result is the extended value of X*. 

If the target length is less than n, the stringsize condition occurs. If the 
<on unit> returns to the point where the condition was detected, the result is 
formed by truncating the rightmost n-m bits of X', where m is the length of the 
target. 

Examples : 

Character-string^ Result 

"1011" ''1011"b 

"10B" conversion condition 



6.2.5 Bit-string to Arithmetic Conversion 

If the target has any of the type, base or mode omitted, the missing 
<attribute>s are supplied from the set: fixed, binary, real. If the target 
precision is omitted and the target is fixed-point binary, the precision of the 

floating-point binary, the target precision is 63. If the target precision is 
omitted and the target is fixed or floating-point decimal, the target precision 
is 59. 

If the string is a null string, the value of the result is zero. 

If the string is not a null string, the rightmost bit of the bit-string is 
considered to be the units position of an unsigned binary integer of precision 
n, where n is the length of the string. The value of that integer is then 
converted to conform to the type, base, mode and precision of the target. If 
the target is fixed-point and has insufficient precision to represent the 
integral digits of the value, the size condition occurs. 

Examples: 

Bit-String Result 

"101"b 5 

""b 

''0000000"b 
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6-2.6 Bit-string to Cha racter-String Conversion 

Let X be the bit-string to be converted. 

If X is a null bit-string, it is 'converted to a null character-string X'- 
otherwise, it is converted to X', where X' is a character-string of length n, 
where n is the length of X. For ks1,2,...,n, the kth character of X* is if 
the kth bit of X is and the kth character of X' is 1 if the kth bit of X is 1. 

If no target length is given, the result is X'. 

If the target, length is greater than n, X' is extended on the right with blanks 
until It is the length of the target. The result is the extended value of X'. 

If the target length is less than n, the stringsize condition occurs. If the 
<on unit> returns to the point where the condition was detected, the result is 
formed by truncating the rightmost n-m characters of X', where m is the length 
of the target. 

Examples: 

Bit-String Result 



"101"b "101"' 



3.2.7 Arithmetic to Character-Stri ng Conversion 
Let X be the arithmetic: value tq be- converted. 



T t¥ 



LI the base of X is decimal, let X' be X; otherwise, convert X to X', where the 
type and; mode of X' are- the- type and mode of X, and. the base of X' is. decimal. 
The precision of X' is given by the rules for base conversion described in 
paragraph 8.2. 10. 

Let the precision of X'^ be (p) if the type of X' is floating-point, and let 
(p,q) be the precision of X» if the type of X' is fixed -point. Let an 
intermediate result, S, be defined as a character-string whose value is 
determined by the following: 

If the mode of X' is complex, S is formed by converting^ the- real part of X' to a 
stringy SI, and converting the imaginary part of X' to a string, S2, as if they 
were real numbers. If the imaginary part of X' is >a, S is formed by: 

SI ! ,' "+" I ! 32 
Otherwise, S is formed- by: 



Before concatenation,, an »i» is appended to 32 and all leading blanks in 32 are 
removed by shifting the nonblank characters of 32 to the left and filling the 
vacated character poaitiona with, blanks;^ 

Example:: 

»B»-2.9 become* . -2.9iB14»: 
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The following rules describe the conversion of X' when its mode is real: 

If the type of X' is floating-point, the value of S is the value produced by 
converting X' under control of a picture of the form: 

"-9.v(p-1 )9es999'' 

If the type of X' is fixed-point, the value of S is given by one of the 
following three cases: 

For q=0, the length of S is p+3 and its value is the value of X' converted 
under control of a picture of the form: 

'•(p+2)-9v" 

For p>_q>0, the length of S is p+3 and its value is the value of X' 
converted under control of a picture of the form: 

"(p-q+1)-9.v(q)9" 

For q<0 or q>p, the length of S is p+3+k, where k is the number of digits 
necessary to represent the value of q with no leading zeros. To form the 
result S, let S' be the value of X' converted under control of a picture of 
the form: 

"(p)-9vf(-q)" 

Let E be the value of -q converted under control of a picture of the form: 

"s(k)9" 

The result S is formed by S'il"f"!IE. 

Refer to paragraph 8.2.12 for a discussion of picture controlled conversion. 

If the target length is not given, the result is S. 

Let n be the length of S and let m be the target length. 

If m>n, ra-n blanks are appended to the right of S to form the result. 

If in<n, the stringsize condition occurs. If detection of the condition is not 
enabled or if the <on unit> returns control to the point where the condition was 
detected, the rightmost n-m characters of S are removed to form the result. 



Examples: 




Type of X' 


Precis 


float 


(4) 


float 


(4) 


fixed 


(4,0) 


fixed 


(4,0) 


fixed 


(4,2) 


fixed 


(4,2) 


fixed 


(4,-2) 


fixed 


(4,-2) 


fixed 


(5,6) 


fixed 


(5,6) 


fixed 


(3,3) 


fixed 


(3,3) 



Value of X' 


Result 





»0.000e+000 


1.23 


B1.230e+000 





bKUbtSbO 


25 


Ublititi25 





KbKO.OO 


-12.34 


B-12.34 





BKBBOf+2 


123000 


)41230f+2 





bBBBBOf-e 


-.01 


-10000f-6 





UO.OOO 


-.01 


-0.010 
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8.2.8 Arithmetic to Bit-string Conversion 

Let X be the arithmetic value to be converted. 

Let X' be a real, fixed-point, binary value of precision (p,0), where p is given 
by the following: 

Attributes of X Value of p 

binary fixed (r.s) min(71 ,max(r-3,0) ) 

decimal fixed (r.s) min(71 ,max(ceil({r-3)»3.32) ,0)) 

binary float Cr) min<71.r) 

decimal float (r) min(71 ,oeil(r»3.32) ) 

The functions "min", "max" and "ceil" are described in Section 13. 

The value of X' is the absolute value of the real part of X. 

The size condition occurs if the precision of X* is such that It cannot 
represent the integral digits of the real part of X. 

Let S be a bit-string of length p whose value is the string of binary digits 
that represent the value of X' . 

If the target length is not given, the result is S. 

Let n be the target length. 

If n>p, n-p zero bits are appended to the right ofS to form the result. 

If n<p, the stringsize condition occurs. If the <on unit> returns control to 
the point where the condition was detected , the rightmost p-h bits of S are 
removed to form the result. 

Examples: 

Value of X Value of X' Precision of X.' Result 

5 5 (4,0) "0101 "b 

-t 4 (4,0) "OlOCb 

0.7 O (4,0) "0000 "b 

.7 (0.0) ""b 

01b 1 (2,0) "01"b 



8.2.9 Arithmetic Mode Conversion 

If a complex value is converted to a real value, the result is the real part, of 
the complex value. 

If a real value is converted to a complex value, the result is a complex value 
whose real part is the unconverted real value and whose imaginary part is zero. 

If the tiise, type- or precision of the converted value is not that of the target, 
it is converted' to confornr to the target according to the rules for base, type,, 
and precision conversion.. 

Exanplesr 

5+21 becomes 5 

5 becomes; 5+0 1 
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8.2.10 Arithmetic Type, Base and Precision Conversion 

Let X be the arithmetic value to be converted. If the type of X is fixed-point, 
let (p,q) be the precision of X; otherwise, let (p) be the precision of X. 

Let the result X' have the type and base of the target. If the type of the 
target is not given, let X' have the type of X. If the base of the target is 
not given, let X' have the base of X. If the precision of the target is given, 
let the precision of X' be the precision of the target; otherwise, the precision 
of X' is given by the following table: 



Attributes of X 



Attributes of X' 



Precision of X' 



fixed binary 
fixed decimal 



float binary 
float decimal 

fixed binary 



fixed decimal 
float binary 
float decimal 

fixed binary 
fixed decimal 
float binary 
float decimal 

fixed binary 
fixed decimal 
float binary 
float decimal 



fixed binary 
fixed binary 



fixed binary 
fixed binary 

fixed decimal 



fixed decimal 

fixed decimal 

fixed decimal 

float binary 

float binary 

float binary 

float binary 

float decimal 

float decimal 

float decimal 

float decimal 



(p,q) 

(min(ceil(p»3.32)+1,71), 

ceil(q*3.32)) 

(P.O) 
(P.O) 

(min(ceil(p/3.32)+1,59), 
ceil(q/3.32)) 

(p.q) 

(min(ceil(p/3.32)+1,59),0) 
(p.O) 

(min(pi63)) 

(min(ceil(p»3.32),63)) 
(P) 
(min(ceil(p»3.32),63)) 

(min(Geil(p/3.32),59)) 
(min(p,59)) 

Cmin(ceil(p/3.32),59)) 
(P) 



The value of X' is the value of X converted to the data type of X'. In most 
cases, the value of X' is the same value as X, but if the base of X' differs 
from the base of X, the value of X' is an approximation to the value of X. If 
the base of X' differs from the base of X, rounding occurs if X' is floating 
point, while truncation occurs if X' is fixed point. 

The overflow or underflow condition occurs if X' is floating-point binary and X 
is a decimal number too large or too small to be represented by binary 
floating-point. The size condition occurs if X' is fixed-point and has 
insufficient precision to represent the integral digits of the value. 



Examples: 

Attributes of X 
fixed decimal prec(7,0) 
fixed binary prec(17,0) 
float decimal prec(IO) 
float binary preGC27) 



Attributes of X' 
fixed binary prec(25,0) 
fixed decimal preo(7,0) 
float binary precCS^t) 
float decimal prec(9) 



7/79 



8-8 



AG94C 



8.2.11 Format Controlled Conve rsion 

Format controlled conversion occurs only when a <ffet ni- a i-«m *.««■■> ^^ /•r.,.*. 
statement> containing a <get edit> or <put ediS ^s execSJed °^ ^^""^ 

c!;a?ac?er-s?r?n^ '?r'f'?^H""'.H^' "^f*^ ^° °°"^''°^ conversion from a 
cnaracter-string, it is described as input conversion , and when it is used to 

control conversion to a character-stringTu i s described as outgut converston 
The result of an input conversion is assigned to a list element and 

Re^lr't^Sec'tion^2''fo:'^h'' '? °°"5"''" ^° ^*^' ^^"-^ ''^' °^ '"^^ li""l'emi;?: 
Keier to Section 12 for the syntax and semantics of <3tateraent>3. 

8.2.11.1 Fixed-Point Format 

Syntax: 

<fixed-point format>::= f(<w>C ,<d>[ ,<k>]]) 
<w>::= <expre3sion> 
<d>::s <expression> 
<k>::s <expresslon> 

fi^>^"^™?;^!? °^-^^M "^"^^^ ^''^'. tf'* <i«ci»al location, <d>, and the scale factor, 

J^h.J^ll ^ , scalar arithmetic or string values that are converted to real 

binary integers. Let w,, d and k be the converted values. Both w and d must be 
nonnegative. 

8.2.11.1.1 Fixed-Point Input C onversion 

Let S be the character-string to be converted to the result X. The length of S 

iurSrerisioSrSr^lale?''''^"'^' ''*'"*^"^'^^^ ■**^^' ^^^^ ^-^-^ ° | 

If w^O and S is not all blanks, S must be described by: 

[<blank>]. ..[+;-]<decimal niBnber>[<blank>] ■; 

The string, S, is converted to a fixed-point, decimal, real number, X, whose 
value, V, and precision, Cp,q), are determined as follows: 

V is the value of the integer represented by S. The decimal point, if any. 
IS ignored for this purpose. 

p is the number of digits in S. 

q is calculated as j-k where: 

j iff thfr number of digits in S following the decimal point, if one 
occurs; or j is the value of d, if it appears; or j is 0. 

k is given by the- <fixed-point fbrmat> or is zero. 

The value of q must be in the ranger -128<q<12T. 

The result is X.. 
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otherwise, the conversion condition occurs. The value of the onsource built-in 
IS S. The- value of the onchar builtin is the leftmost character in S that does 
not meet the syntax for fixed-point input conversion. 

Examples: 

Value of S Format Result 

»7.2« f(5) 7.2 

»»»»» f(5) 

-7«BB f(5) -7 

»10-5 f(5,2) 10.5 

»100» f(5,2) 1.00 

»»1«BT f(5.0,2) TOO 

K100U f(5,4,-2) .0001 



8.2.11.1.2 Fixed-Point Output Conversion 

Let X be the value to be converted to the result string S. The length of S is 
i*-. ^^^ ^° }^ omitted, let d be zero. If any expression in any of the following 
<picture>s 13 negative, the size condition occurs. 

If w=0, S is a null string. 

If d=0 and X<0, let s be min(59,w-1 ) . The value of S is the value of X 
converted under control of a <picture> of the form: 

"(w-s-1)b(3-1) — 9v" 

If d=0 and X>0, let s be min(59,w). The value of S is the value of X converted 
under control of a <picture> of the form: 

"(w-s)b(s-1)z9v" 

If d;«0 and X<0, let s be min(59,w-2). The value of S is the value of X 
converted under control of a <picture> of the form: 

"(w-s-2)b(s-d-1)— 9.v(d)9" 

If diO and X>0, let s be min(59,w-1). The value of S is the value of X 
converted under control of a <picture> of the form: 

"(w-s-1)b(s-d-1)z9.v(d)9" 

paragraph 

nversion is 

s rounded 

to decimal 

imal value 

Note that the scaling performed by a <fixed-point format> effectively multiplies 
the value being converted by a power of ten for both input and output 
conversions. It differs from the scaling performed by the <picture scale 
factor> which effectively multiplies by a power of ten for input and divides by 
a power of ten on output. Refer to paragraph 8.2.12. 

The result is S. 
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Examples: 

Value or X Fornrat Result 

7". 5 f(5,2) U7.50 

f(5,2) kJO.OO 

-3 f(5,2) .3.00 

3.5 f(5) tfKUM 

f(5) . WKUO 

-7.5 f(5) JJBB-8 

12 f(5,0,2) b1200 



8.2.11.2 Floatiflg-Polnt Format 

Syntax: 

<floating-point format>::= e(<w>[ ,<d>C ,<s>]]) 
<w>::= <expression> 
<d>::= <expres3ion> 
<3>::= <expression> 

Evaluation of the width, <w>, the decimal location, <d>, and the number of 
significant digits, <3>, must yield scalar arithmetic or string values that are 
converted to real binary integers. Let w, d and s be the converted values. All 
three values must be nonnegative. If given, w, d, and s must satisfy 0<s<59. 
s>d>0, w>0. J^ _^'• 



8.2.^1.2.1 Floating-Point Input" Conversion 

Let S be the character-string to be* converted, to the result X. The length of S 
is w. 

If w=0 or S is a string of all blanks, the- result is a real, fixed, decimal 
with precision 1 . 

If w^O and S is not all blank, S must be described by: 

[<blank>]. . . t+!-]<decimal number> 

Cl[e]{-K|-}ie}<decimal integer>][<blank>]. . . 

The string, S, is converted to a floating-point, decimal, real number, X, whose 
mantissa, f, exponent, e, and precision, p, are determined as follows: 

p is the number of digits in the <decimal number>. 

f is the integer value of the <deciraal number>, ignoring the decimal point, 
if any. 

e is- calculated as k-q where: 

k^ isi the value of the <decinal integer> or is zero. 

q is the number of digits following the decimal point in S, if one 
appears; or q is. the value of d,^ if it is given; or q is zero„ 

The value of e must be in the range -128£e0 2T. 

The result ir X. 
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otherwise, the conversion condition occurs. The value of the onsource built-in 
is S. The value of the onchar buiitin is the leftmost character in S that does 
not meet the syntax for floating-point input conversion. 



Examples: 



Value of S 

1.3e7 
12345 
-52+4 
btf5tffc( 



Format 

e(5,3) 

e(5,3) 

e(5,3) 

e(5) 

e(5) 



Result 



1 . 3e+7 

12.345e+0 

-52.0e+4 

5.0e+0 



8.2.11.2.2 Flo atin g-Point Output" Conversion 

Let X be the value to be converted to the result string S. The length of S is 
w. 

If s is omi.^-ed, let s be d+1 . If d is omitted, let d be p-1 and let s be p, 
where p is the precision of X after conversion to a floating-point, decimal, 
real number according to the rules given in paragraph 8.2.10. 

The value of S is determined by one of the following cases: 

If w=0 , S is a null string. 

If d<s and diO and X<0, the value of S is the value of X converted under control 
of a <picture> of the form: 

" ( w-s-7 ) b ( s-d ) -9 . V ( d ) 9 es9 99" 

If d<s and 6^0 and X>0, the value of S is the value of X converted under control 
of a <picture> of the form: 

" ( w- s-6 ) b ( s-d- 1) z9 . V ( d ) 9 63999 " 

If d=0 and X<0, the value of S is the value of X converted under control of a 
<picture> of the form: 

■■(w-s-6)b(s)-9ves999" 

If d=0 and X>G, the value of S is the value of X converted under control of a 
<piGture> of~the form: 

"( w-s-5 )b( s-1 )z9ves999" 

If d=s and dHO and X<0, the value of S is the value of X converted under control 
of a <picture> of the form: 

■'(w-d-8)b-..v(d)9es999" 

with the resulting "..•• replaced by "0.". 

If d=s and d^O and X>p, the value of S is the value of X converted under control 
of a <picture> of the form: 

"(w-d-7)b..v(d>9es999"* 
with the- resulting ""^,.* replaced by "QJ'v 
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sfzi'^LiliJi^S o'L^'^f '°" '" '"^ °' '^* preceding <plcture>s is negative, the 



size condition occurs. 

The result is S. 

Examples: 

Value of X 

7.5 

-7.5 

75 



.008 



Format 

e(11,3) 
e(11.3) 
e(11,3) 
e(n,3) 
e(11,2,4) 



Result 

»7.500e-t-000 
-7.500e+000 
B7.500e+001 
MO.OOOe-^000 
l^80.00e-004 



8.2.11.3 Complex Format 



Syntax: 

<complex format>::= c(<format part>[ ,<format part>]) 

<format papt>::= <piGture forraat> Kfixed-point format> ! 
<floating-point format> 

If only one^<format part> is given, it is used to control the conversion of both 

^?ven' th^ r-"'^'"'7 ^r^f °^ '^^ ^^"'P^^* """»'«'•• If t"o <format partes are 
fnd the seconS controli' It ^°^''^^^^°^ of the real part of the complex number 
conversionr nf ^h2 ^ ^^^ imaginary part of the complex number. The 

nCrblrs'in'this section! ''''' ''' ^^'''°'''"^' independently as described for real 



nLfnif^''"'^*'^^'"^^ " *^P^°^"''*. f°'""^^>' ^^^ <piGture> must be 



a <numeric 



™i!v^^^K "^" '^°" "°^ ^PP®^"^ " ^^^ character-string representations of 
complex numbers processed by a <complex format>. ^presentations of 

Examples: 

Value 



16163^162 
-2HHtf1 

Value- 

5+21 
5.2-3. 1i 



Format 

o(f(3)) 
c(f(3,1),f(3)) 

Format 

G(f(3)) 

c(f(4,l),f(5,2)) 



Input Result 

3+21 
-. 2+1 i 

Output Result 

16V5Tiii2 
B5.2-3.10 



8.2.11.4 Character-String Format 

Syntax: 

<charaeter-string foniiat>::s aC(<ii>)l 
<w>::= <expression> 

cJSi;?ter ?o real'^fn Ji*J*+ * '"\^'* «''it*>«etic. or string value that is. 
IZltli nonnelltuJl "" ^"^^S*"- ^et v*. be the converted value. If specified 
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For output conversion , let X be the value to be converted to the result string 
S. It is converted to a character-string, S', according to the rules given in 
section 8.2. If w is not given, the result is S". If w is given, let n be the 
Length of S'. If n<w, the result is S' with w-n blanks appended to its right. 
If n>w, the stringsize condition occurs. If detection of the condition is 
disabled or if the <on unit> returns to the point where the condition was 
detected, the rightmost n-w characters are removed from S' to form the result. 



Examples: 
Value 



Format 



btfbU 
B2.5 

Value 

"abc" 
"abc" 

nn 



a(4) 
a(4) 


Format 


a 

a(4) 

a(4) 



Input Result 

"b2.5" 

Output Result 

abc 

abcb 

KbtiK 



8.2.11.5 Bit-string Format 

Syntax: 

<bitrstring format>::= <radix factor>C (<w> ) ] 

<radix factor>::= {b| b1 ib2 ib3 ib4} 

<w>::= <expression> 

Evaluation of <w> must yield a scalar arithmetic or string value that is 
converted to real binary integers. Let w be the converted value. If specified, 
w must be nonnegative. 



o.<;. 



dit-string Input Conversion 



For input conversion, w must be specified. Let S be the character-string of 
length w that is to be converted. S must be described by the following: 

[<blank>. . . ]C<character>. . . ][<blank>. . . ] 

The <character>s in the above description must come from the <character>s in the 
table in paragraph 2.6.2.1 corresponding to the specified <radix factor>. If S 
does not satisfy this syntax and constraint, the conversion condition occurs. 
Let S' be S with all of Its leading and trailing blanks removed and let n be the 
length of S' . 

Let m be 1 if the <radix factor> is "b", or the number in the <radix factor> 
otherwise. If S' is a null character-string, it is converted to a null 
bit-string, R; otherwise, it is converted to R, where R is a bit-string of 

length m»n. For k=1 ,2, .^. . ,n , bits k^ra-m^'1 k»m are obtained from the table 

in paragraph 2.6.2.1. If the kth character of S is invalid, the conversion 
condition occurs. 
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Examples: 




Value 


Forma 


010 


b(3) 


tsvki 


b(3) 


000 


b(3) 


DIV 


b(3) 


407 


b3(3) 


cd5 


b4(3) 



Input Result 

"010"b 

"000 "b 

"1"b 

"1 000001 11"b 

"110011010101 "b 



8.2.11.5.2 Bit-string Output Conversion 



g the table in 



M^r^-m ™:i^' """r*^ ^ ^ ^ character.string of length L' For 
paragraph "Tliiii: ^"^ converted to the ith character by usin 



If w is greater than^ K, S is extended 



IS w. 



on the right with blanks until its length 



returni 'rr'fL'!!!'?-"'..^!*?. ^^''i^S^i". condition occurs. 



If the <on unit> 



Examples: 



Value 



Format 



"00 "b 


b 


"1"b 


b(4) 


"••b 


b(4) 


"10101»b 


b3(3) 


"llllinb 


b4(2) 



Output Result 

00 
1 bKH 

52)6 
F8 



8.2.11.6 Picture Format 

Syntax: 

<piGture format>::= p"<picture>" 
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Mote that for input conversion the result of the format controlled conversion is 
considered a pictured value and is converted as such when it is assigned to the 
list element. 

For output conversion, let X be the value to be converted to the pictured string 
S. X is converted to S as described in the next section. 



8.2.12 Picture Controlled Conversion 

The following sections describe the conversion that occurs when a value is assigned 
to a pictured variable or output through a <pioture format> as editing . The 
conversion that occurs when a pictured value is converted to an arithmetic value 
is described as encoding . 

The pictured character-string value described by a <pioture> consists of n 
characters, where n is the number of <pioture char>s in the <normal pioture> 
excluding any "v", "k", or <ptoture scale faotor>, but including all <insertion 
character>3. 

The result of editing is a pictured character-string of length n whose value is 
determined by the <pioture>. The result of encoding is a decimal arithmetic 
value whose type and precision are determined by the <picture>. If the encoded 
value does not conform to the data type of the target, the encoded value is 
converted to conform to the target. 

The character-string value to be encoded must be a valid string. A valid string 
IS one of the strings that could have been produced by editing values througH 
the <pioture>, except that the set of strings acceptable to the <mantis3a field> 
of a < floating-point picture> is the set of strings that could have been produced 
by editing, values through the <fflanti3sa field> as if it were a <fixed-ooint 
picture>. "^ 

If a pictured variable or function value is declared with the <coBplex attribute), 
the encoding and editing operations are performed on the real and imaginary 
parts of the complex values as if they were real numbers. The single <picture> 
is effectively a pair of identical <picture>s. 



8.2.12.1 Syntax of Pjcturea 

Syntax: 

<ploture>::= ([(<decimal integer>)]<picture char>}.. . 
C<pioture scale faotor>] 

<pioture ohar>::= alb{cld|e|k|r{ s! vi xi y| 2l$l9!+i-l . I , I /I • 

<pieture scale faetor>: :s f(C+;-]<decimal integer)) 

This syntax describes all valid <picture>3, but is too penaissive in that it 
also describes many invalid <picture>s. In order to describe only valid <pioture>s 
<picture>s must be translated into <normal pieture>s. This translation is 
accomplished by copying each <pioture char> k times, where k is the value of the 
parenthesized <decimal integer) that immediately precedes the <picture char>. 
If no such parenthesized <decimal integer) appears, the <picture char) is not 
repeated. If ksO, the <pieture char) is removed. 

Exaaple: 



(5)9v(2)9 


becomes 


99999V99 


(3)-9.('l)9 


becomes 


9.9999 


C0)-99 


becomes 


99 
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Normalized pictures must be described by the following syntax as amended by the 
discussion of <insertion oharaoter>3 that follows below: 

Syntax: 

<normal pioture>::= <oharaoter picture) Knunerio picture) 

<oharaeter picture>::= [9. . . ] (a! x} [a| x!9]. . . 

<nuinerio picture): := {<fixed-point picture) I 

<floating-point pioture)}[<picture scale factor)] 

<picture scale factor): := f ( C*l-]<deciinal integer)) 

<fixed-point picture): := <fixed field) Kdrif ting field) 

<flxed field)::= <digit poaitions)[5!+|-][$] | 
<digit po3ltions>[$]Csi'i-;-]! 
[sj + l-]<dlgit positions) [$] I 
Cs! + !-]t$]<eligit positions)! 
[$]Cs!+|-]<diglt positions)! 
[$]<dlglt posltions)[si-)-i.]! 
<diglt po8ition3)[$]{cr!db}| 
[$]<digit positions) { or !db} 

<digit positions): := <digits)[v[<dlgit3)]] ! 
v<diglt3>| 

z...[<digits)][vC<digits)]]; 
[z*«.Iv z ' 

»...C<digits>][v[<digits)]]! 
[•...]v », .. 

<drifting field): :=• <drlfting 3ign)[$]! 
C$]<drifting sign)! 
<drifting dollar)[si*)-] I 
[3i*!-]<drifting dollar)! 
<drifting dollar) (cridbl 

<driftlng sign>::s <3ign3)[<dlgit3)][v[<digit3)]] I 

<drifting dollar>t:s $ $.. .[<digit3>][v[<digits)]] !$. . .v. $... 

<diglts>::= (9lyl... 

<signs>::s s S...I+ ♦...!- -... 

<floating-point picture)::? <manti3sa field) 
{e!l()<exponent field) 

<iiiantis3a fleld>::5 [3| + !-]<digit positions) ! <drifting sign) 

<exponent fleld>::= Cs!-i.|-]([9]C9]9i [z][9]9l [z] [z39! [zj Cz]z} 

If a <picture> can be translated into a <character picture) by expanding all 
repeated < picture ohaDs, or into a <nuinerio picture) by expanding all repeated 
<plcture char)3 and reaoving all <lnsertiQn oharaeter>s, it is a valid <picture)' 
otherwise, it is not valid and the program is in error. ' 

< insertion character): :s .|,;/ib 

Although the presence of <insertion oharaoter)3 is described informally and not 
by syntax rules, they are part of the <fixed-point picture) or <floating-point 
picture) and occupy positions in the pictured character-string value described 
by the <plcture). 
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8.2.12.2 Character Picture Conv ersion 

Lll^ZnttZ Si°l'"'"®^ °^" «°U*^^"«°!?^y "5"' "«" *"• "*" <Picture char>s and it 
muse contain at least one "a" or "jc". 

8.2.12.2.1 Char acter P icture Editing 

Let X be the value to be edited into the pictured character-string P. 

X is converted to a character-string value X' according to the rules for the 
conversion to cnaracter-string given in paragraph 8.2. The value of X- is then 
edited into the pictured character-string as follows: 

Let n be the length of P and let m be the length of X'. If m<n, X' is extended 
on the right by n-m blanks. If m>n. the stringsize condition occurs. If 
detection of the condition is disabled or if the <on unit> returns control to 
the point where the condition was detected, the last m-n characters of X' are 
Ignored. 

The value of P is the leftmost n characters of the extended value of X', 

For k=1,2,...,n, the kth character of X' is checked for conformance to the kth 
<picture char> and is assigned to the kth character position of P. Only the 
characters "0" ,"1 ",..., "9" or blank conform to a "9" <picture char>. Only the 

characters "a". "b" "z" or "A" , "B" , . . . . "Z" or blank confer; to an "a" 

<picture char>. Any character conforms to an "x" <picture char>. 

If any character of X' does not conform, the conversion condition occurs. The 
value of P is not defined when this condition occurs. 

Examples: 

Value of X' Picture po=„iv 



abc aaa 



abc 



123 x99 123 

1e2 x99 



conversion 
condition 



8.2. 12.2.2 Character Picture Encoding 

The pictured character-string value is converted to an arithmetic value 
according to the rules for character-string to arithmetic conversion given in 
paragraph 8.2-3- 



8.2.12.3 Fixed-Point Picture Conversion 

A <fixed-point picture> cannot contain a "k" , "e", "a" or "x" <pioture char>. 

There are two kinds of <fixed-polnt picture>s, <fixed field> pictures and 
<drifting field> pictures. 
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8.2.12.3.1 Fixed-Point Pict ur e Editing 

Let X be the value to be edited into the pictured character-string, P. 

X is converted to a fixed-point, decimal, real, value, X', of precision (n,m), 
where (n,m) is determined according to the rules for <fixed-point picture> 
encoding given in paragraph 8.2.12.3.2, 

If this precision is insufficient to retain all digits to the left of the 
decimal point, the size condition occurs. If fractional digits are lost, they 
are truncated. 

The value of X' is converted to a character-string by the following: 

Let D be the string of n decimal digits that represents the absolute value 
of X'. 

Let P be a copy of the <normal picture> with the "v" and the <picture scale 
factor>, if any, removed. Let N be the number of <picture char>s in P, let 
j be 1 , and let zero suppression be off. 

For k=1,2 N, select the kth <picture char> from P and perform the 

action indicated for this <picture char>. If the kth <picture char> in the 
original <norraal picture> is a "v" and zero suppression is on and X'^0, 
turn zero suppression off before performing the action indicated for the 
kth <picture char> of P. 

s If X'<0, replace the "s" with a "-"; otherwise, replace it with a "+". 
If additional "s" characters remain, replace each of them with a "z" 
and turn zero suppression on. 

+ If X'<0, replace the "+" with a blank; otherwise, it remains 
unchanged. If additional "+" characters remain, replace each of them 
with a "z" and turn zero suppression on. 

If X'<0, the ••-" is unchanged; otherwise, replace it with a blank. If 
additional "-" characters remain, replace each of them with a "z" and 
turn zero suppression on. 

$ Leave this character unchanged. If additional '■$" characters remain, 
replace each of them with a "z" and turn zero suppression on. 

9 Replace the "9" by the jth digit of D and turn zero suppression off. 
Let j be j+1 . 

y Turn zero suppression off. If the jth digit of D is a zero, replace 
the "y" by a blank; otherwise, replace the "y" by the jth digit of D. 
Let j be j-*-1. 

z If this is the first "z" and it occurs to the left of the "v" in the 
original <normal picture>, turn zero suppression on. If zero 
suppression is on and the jth digit of D is a zero, replace the "z" by 
a blank; otherwise, turn zero suppression off and replace the "z" by 
the jth digit of D. Let j be j-i-1 . 

» If this is the first "•" and it occurs to the left of the "v" in the 
original <norm^al picture>, turn zero suppression on. If zero 
suppression is on and the jth digit of D is a zero, leave the "*" 
unchanged; otherwise, turn zero suppression off and replace the "•" by 
the jth digit of D. Let j be j+1. 

c The next <picture char> must be an "r". If X'<0, leave both the "C 
and the "r" unchanged; otherwise, replace them by two blanks, 

d The next <plcture ehar> must be' a "b". If X'<0, leave both the "d" 
and the "b" unchanged; otherwise, replace them by two blanks. 
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, If zero suppression is on and the previous character in P is now an 
"*", replace the "," by an "♦". If zero suppression is on and the 
previous character in P is not an "*", replace the "," by a blank. If 
zero suppression is off, leave the "," unchanged. 

/ Process like a comma. 

Process like a comma. 

b Process like a comma, except when zero suppression is off replace the 
"b" by a blank. 

Before obtaining the result, the longest subfield contained within a <drifting 
sign> or <drifting dollar> satisfying this syntax: 

{+|-|$}<blank>.. . 

has its first and last characters interchanged. 

to all 



If no digits were edited into P, set P 
character-string P. 



blanks. The result is the 



Examples: 




Value of X 


Picture 


5.2 


99v99 


5.2 


99.99 


5.2 


9.9.99 


5.2 


sssv99 


5.2 


sssv.99 


5.2 


V.99 


5.2 


■)-M.v.99 


-5.2 


S3SV.99 


-5.2 


v.99 


-5 .2 


-HM-V.99--^ 


-5.2 


$$$v.99cr 


5.2 


$$$v.99cr 


5.2 


zzzvzz 


.01 


zzzvzz 





zzzvzz 


1234 


z,zzzv 


900 


z,zzzv 



Result 

0520 

00 .05 

0.0.05 

K+520 

»+5.20. 

HB5.20 

K+5.20 

K-5.20 

B-5.20 

KB5.20 

BB$5.20cr 

I6ti$5.20b)i 

m520 

m}6m 

1,234 
1616900 



a. 2. 12.3.2 Fixed-Point Picture Encoding 

Let X be the pictured character-string value to be encoded and let (n,m) be the 
precision of the encoded value, Y, where (n,m) are determined as follows: 



If the <fixed-point picture> is a <fixed field>, let n be 
<picture char>s in the <digit position3> excluding 
character>s or the "v". Let m be the number of <picture 
<digit positions> following the "v" and excluding 
character>s. If the "v"^ is omitted, m=0. 



the number of 
any <in3ertion 
ahar>s in the 
any <insertion 



If the <flxed-point picture> is a <drifting- field>, let n be the number of 
<plcture char>s in the <driftxng 3ign> or <drifting dollar> excluding: the 
first sign of a <drifting 3ign>, the first "$" of a <drifting dollar>, any 
<in3ertion Ghar>s, and the ''v"^ Let or be the number of <picture char>3 in 
the <driftinff 3ign> or <drifting dollar> following the "v" and excluding 
any <insertion character>s. If the "v" is omitted, m=0. 

The resulting: values of n and m must satisfy" The relationship m<n<59 or the 
program is in error. 
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Value of X 


Picture 


IS.Si^S 


zz,zzz 


123^56 


ZZjZZZ 


»KB900 


zz,zzz 


BB5.00 


zzzv.zz 


bB5.00 


zzz.zz 


B-5.00 


SSSV.99 


B+5.00 


SSSV.99 


l*-5.00 


V.99 


K+5.00 


v.99 


14+5.00 


+++V.99 ■ 


B-5.00 


■M.+V.99 


BB$5.2 


$$$9v.9 


I1JBK5.2 


$$$9v.9 


12.23cr 


zzv.99cr 


12.23Bi:i 


zzv.99cr 



If the <picture> has a <picture scale factor>, m is changed to tn-q, where q 
is the value of the <picture scale factor>. The final value of m must be 
in the range -128<m<127. 

Let D be the string of decimal digits contained within X. If D is a null 
string, let D' be zero; otherwise, let D' be the decimal integer represented by 
D. To form the result, Y, let the absolute value of Y be D' and let the sign of 
Y be minus if X contains a "-" , "cr" or "db"; otherwise, the sign of Y is olus . 
The data type of Y is fixed-point, real decimal, of precision (n,m). 

The value of Y is the result of encoding X. 

Examples: 

Result 

12345 

program in error 

900 

5.00 

500 

-5.00 

5.00 

-5.00 

program in error 

5.00 

program in error 

5.2 

program in error 

-12.23 

12.23 



8.2.12.4 Floating-Point Picture- Conversion 

A <f loating-point picture> consists of two subfields, one describing the 
mantissa and one describing the exponent. A <floating-point picture> cannot 
contain an "a" or "x" <Dicture Ghar>. 



8.2.12.4.1 Floating-Point Picture Editing 

Let X be the value to be edited into the pictured character-string P. 

■X is converted to a floating-point, decimal, real value, X' of precision (n), 
where (n) is determined according to the rules for <f loating-point picture> 
encoding given in paragraph 8.2.12.4.2. 

If a <picture scale factor> is specified for P, the value of X' is changed to 
X'*10*»-k, where k is the value of the <picture scale factor>. 

If digits are lost by this conversion, the least significant remaining digit is 
rounded if it is followed by a digit >_5 . 

The absolute value of the mantissa of X' is represented as a fixed-point, 
decimal, real number, D, of precision(n,n) adjusted to lie in the range 
(1/10)<_f<1, or is zero. The exponent is adjusted to reflect that fact that the 
mantissa is adjusted. The exponent is zero if X' is zero. 
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Consider the <mantissa field> to be a <fixed-point picture> and the mantissa of 
X' to be a fixed-point, decimal, real value of precision (n,m), where n and m 
are given by the rules for <fixed-point picture> encoding given in paragraph 
8.2.12.3.2. Edit the mantissa of X' into a copy of the <mantissa field> as if 
It were a <fixed-point picture>. Let M be the result of this edit operation. 

Adjust the exponent of X ' to reflect the location of the "v" or implied "v" 
within the original <mantissa field>, and then convert it to a fixed-point 
decimal, real numb.er of precision( 3 ,0) . Edit the adjusted and converted 
exponent into a copy of the <exponent field> of the <f loating-ooint picture> as 
If the <exponent field> were a <fixed-point picture>. Let e' be the result of 
this edit operation. 



If the <floating-point. picture> contained a "k", the result is Ml IE. If the 
<floating-point picture> contained an "e" and E is all blanks, the result is 
M||"iS"llE. If the <floating-point picture> contained an "e" and E is not all 



blanks, th^ result is 
Examples : 



E. 



Value of X' 


Picture 


Result 


5.2 


9v.99ks99 


5.20+00 


5.2 


9v.99k-99 


5.201S00 


5.2 


9v.99k+99 


5.20+00 


5.2 


9v.99es99 


5.20e+00 


5.2 


9v.99e9 


5.20e0 


-5.2 


s9v.99e9 


-5.20e0 


-5.2 


+9v,99e9 


»5.20e0 


-5.2 


-9v.99e9 


-5.20e0 


-5.2 


- — v.9es9 


-52.0e-1 


1234.5 


9,999v,e9 


1,235.e0 


-5.2 


V, es99 


-52.00Qe-01 



8.2.12.4.2 Floating-Point Picture Encoding 

Let X be the pictured character-string value to be encoded, and let (n) be the 
precision of the encoded value, Y', where (n).is determined as follows: 

If the <mantissa field> is a <drifting sign>, n is the number of <picture 
char>s in the <drifting sign>, excluding the "v" , the first sign character, 
and any <insertion character>s. 

If the <mantissa field> is not a <drifting sign>, n is the number of 
<picture char>s in the <digit positions>, excluding the "v" and any 
<insertion character>s. 

Let m be the number of <picture char>s in the <mantissa field> following 
the "v", but excluding any <insertion character>s. 

The resulting values of n and m must satisfy the relationship m<n<59 or the 
program is in error. 
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D be the string of decimal digits contained in X . If D is a null string 
let D' be zero; otherwise, let D' be the absolute value of the decimal integer 
represented by D. To forir the result, Y, let Y be a real, decimal, fixed-point 
value of precision (n,m) whose absolute value is given by D' and whose sign is 
minus if the first M characters of X contain a "-", and is otherwise plus. 

Let 1 be the value derived by encoding the <exponent field> of X as if it were a 
<fixed-point picture>. Let I' be I+s, where s is the value of the <picture 
scale factor>, if there is one, or is 1 . 

The result, Y' is a floating-point, decimal, real, value of precision (n) whose 
value 13 Y*10**I'. 
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Examples : 

Value of X Picture Result 

1,234.56+0 9,999.v99ks9 1234. 56eO 

Kl!S900.00+4 z,zzz.v99ks9 900.00e4 

liS-1.234e00 __9,v999e99 -1.234eO 

BBKBBK 9v9999k9 program in error 
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SECTION 9 
PROMOTION OF AGGREGATE TYPES 



As defined in paragraph 4.2, an aggregate type is the dimensionality, 
array-extents and structuring of a set of scalar values. A value conforms to an 
aggregate type if it has the dimensionality, array-extents and structuring 
specified by the aggregate type. When a value does not conform to the aggregate 
type required by the context in which the value appears, it is promoted to the 
required aggregate type. If promotion from the original aggregate type to the 
required aggregate type is not defined, the program is in error. 



9.1 Contexts That Force Prnmnl-.ion 

1. The value of the <expression> of an <asaignment 3tatement> is promoted to 
conform to the aggregate type of the <target> of the <assignment 
statement>. 

2. The value of an argument of a <funotion reference> or <call 3tatement> is 
promoted to confoi-m to the aggregate type of the corresponding <parameter 
descriptor> of the entry declaration. 

3. Operands of infix operators are promoted to the higher of their two 
aggregate types. 

4. The value of a <return value> is promoted to conform to the aggregate type 
specified by the <returns attribute> of the <entry statement> or <procedure 
statement> whose execution created the current block activation. 

5. The arguments of certain built-in functions are promoted to the highest 
aggregate type of all the given arguments. Refer to Section 13 to see 
which built-in functions force promotion, and which arguments are promoted. 

6. The <expre3sion>s of a <substr pseudO are promoted to the highest common 
aggregate type of the operands of the <substr p3eudo>. 

All of these contexts supply the dimensionality and structuring of the resultant 
aggregate type. All contexts, except the <argument list> context and the 
<return value> context, supply the array-extents of the result. If a <parameter 
descriptor> or a <retums descriptor> specifies asterisk array-extents, the 
resultant aggregate has an array-extent of one in each dimension; otherwise, 
the constant array-extents of the <parameter descriptor> or <retums descriptor> 
supply the array-extenta of the result. 

Example: 

declare f entry(dimension(») fixed); 

call f(5); 

In this example, the scalar 5 is promoted to a one-dimensional array of one 
element whose value is 5. 
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9.2 Types of Promotion 

The language defines promotion from: 

scalar to array 

scalar to structure 

scalar to array of structures 

structure to array of structures 

The word "promotion" implies a ranking of aggregate types, and the promotion of 
the operands of infix operators utilizes this ranking. The aggregate types are 
ranked as follows: 

array of structures highest 

array or structure equal 

scalar lowest 



9.3 Promotion Rules 

1 . Scalars become arrays by forming an array whose elements each have the 
scalar value. 

2. Scalars become structures by forming a structure whose members each have 
the scalar value. 

3. Scalars become arrays of structures by forming an array of structures whose 
scalar components each have the scalar value. 

4. Structures become arrays of structures by forming an array of structures 
whose array elements each have the value of the structure. 

An array cannot be promoted to a scalar, to an array of different dimensionality 
or extent , nor can it be promoted to a structure or to an array of structures . 
However, since the <bound>3 of an array valued <expression> are always 
normalized, arrays of identical extents and dimensionality, but with differing 
<bound>s can be used in any of the contexts that force promotion without causing 
promotion to occur. Refer to paragraph 4.2 for a discussion of array <bound>s 
and normalization. 

Example: 

declare A(5),B(4),C(2, 2); 

In this example, there are no valid promotions between A, B and C. 

A structure cannot be promoted to a scalar, to a structure of different shape, 
nor can it be promoted to an array. It can be promoted to an array of 
structures. However, since <level>s are normalized, structures of identical 
shape, but with differing <level>s can be used in any of the contexts that force 
promotion without causing promotion to occur. Refer to paragraph 4.2 and 
paragraph 5.2.1.3 for a discussion of the normalization of <level>s. 

Example : 

declare 1 S,2 A, 2 B; 

declare 1 T,2 X,3 i,3 Z; 
In this example, there are no valid promotions between T and S, but X and S have 
adjusted <level>3 are equal.) 
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The fact that two aggregates may map into equivalent patterns of values in 
storage has no affect on the rules of aggregate promotion. 

Example : 

declare A(3) ; 

declare 1 S,2 X,2 y,2 Z; 

In some implementations, A and S may map into storage in the same mahner, but 
their aggregate types are not compatible and cannot be promoted to a common 
aggregate type. 
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SECTION 10 
CONDITIONS, SIGNALS AND ON-UNITS 



10.1 Conditions and Condition Names 

A condition is a state of the executing program. A condition name is a name 
that identifies a condition. For example, division by zero is a condition 
identified by the condition name "zerodivide". The language defines a set of 
condition names each of which identifies a specific condition which can be 
detected during program execution. The complete list of PL/I conditions is 
given in paragraph 10.U. 



10.2 Condition Prefixes 

The <condition prefix> is an optimization/debugging feature that allows the 
programmer to disable or enable the detection of some of the PL/I conditions. 

Syntax: ^, 

<Gondition prefix>::= (<prefix name>[ ,<prefix name>]..,): 

<prefix name>::= <disabled condition>i<enabled Gondition> 

<enabled condition>: := {conversion Iconv} ! {fixedoverflowi fofl} 1 
{overflowlofl} Isize! {stringrangelstrg} I {stringsizelstrz} 1 
{subscriptrangelsubrg} I {underflowluf 1} ! {zerodividel zdiv} 

<disabled condition>: := {noconversionlnoconv} I {nofixedoverf low! 
nofofl} ! {nooverflowlnoofl} Inosizel {nostringrangel rostrg} I 
{nostringsize! nostrz} ' {nosubscriptrange ! nosubrg} i 
{nounderflowlnoufl} I {nozerodividelnozdiv} 

A <condition prefix> is in error if it contains a <disabled condition> and an 
<enabled condition> that identify the same condition. 

The region of an <external procedure> affected by a <prefix name> is known as 
the scope of the <prefix name>. The scope of a <preflx name> specified in a 
<condition prefix> attached to a <begin statement> or <procedure statement> is 
all <statement>s contained in the <block> defined by the <begin statement> or 
<procedure statefflent>, except <statement>s or <block>s that lie within the scope 
of another <prefix name> identifying the same condition and contained in the 
same <bloGk>. 

The scope of a <prefix name> specified in a <condition prefix> attached to a 
<states;ent> other than a <begin statement> or <procedure statement> is 
restricted to that <statement> and does not include any <block>s or <statement>s 
that are part of an <if statement> or <on statemen*->. The scope of a <prefix 
name> specified in a <condition prefix> attached to a <do statement> is 
restricted to the <do statement> and does not include the <group> headed by the 
<do statement>. 

A <condltion prefix> attached to a <format statement> controls the detection of 
conditions resulting from tne evaluation of the <format specification list>, but 
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has no effect on the detection of conditions resulting from the execution of the 
<get statement> or <put statement>. 

A <condition prefix> cannot be attached to a <declare statenient> or <default 
statement>. Any <referenGe>s or <expression>s in a <declare statement> or 
<default 3tatement> are part of the declarations of one or more names. When a 
name is referenced during the execution of a <statement>, the <condition prefix> 
that applies to that <statement> is used to control the detection of conditions 
during evaluation of <reference>s and <expression>s in the declaration of the 
name. 

The detection of all PL/I conditions is enabled unless it has been explicitly 
disabled. The detection of a condition is said to be disabled for all 
<statement>s that lie within the scope of a <prefix name> that identifies the 
condition with a <disabled condition> name. 

If a condition occurs during the execution of a <statement> within the scope of 
a <condition prefix> that has disabled detection of the condition, the program 
is in error and the results of further execution are undefined. 

The imaginary outer <block> that contains an <external procedure> has a 
<condition prefix> of the form: 

(nosize,nostringsize,nostringrange,nosubscriptrange) : 

This establishes a default <condition prefix> that applies to the entire 
<external procedure>. 



10.3 Signals and Qn-units 

When a condition is detected the condition is signalled . A signal causes a 
<block> activation of the <on unit> most recently established for the condition. 
The execution of a <signal statement> also signals a condition and has the same 
effect on the flow of control as the detection of a condition. The execution of 
a <signal statement> affects the values of some condition built-in functions as 
described in paragraph 12.27. 

An <on unit> is a <begin block> or <independent statement> executed when a- 

condition is signalled. An <on unit> is established by the execution of an <on 

statement> and is reverted by the execution of a <revert statement> or by 
termination of the block activation that established it. 

Each block activation is capable of establishing a single <on unit> for each 
condition. If a block activation attempts to establish a second <on unit> for a 
given condition, the second replaces the first. Each block activation is 
capable of reverting only those <on unit>s that it established. If a block 
activation attempts to revert an <on unit> which it did not establish, the 
<revert statement> behaves like a <null statement>. Refer to Section 12 for the 
syntax and semantics of the <on statement>, <signal statement>, and <revert 
statement>. 

Example: 

LI: on zerodivide go to A; 

begin; 

L2: on zerodivide go to B; 

L3: on zerodivide go to C^ 

revert zerodivide; 
end; 
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statement LI establishes an <on unit> of "go to A" for the zerodivide condition. 
Statement L2 establishes a new <on unit> of "go to B" for the same condition, 
and because L2 is part of a different block activation, its <on unit> does not 
replace that established by LI. It is effectively stacked on top of the <on 
unit> established by LI. Statement L3 replaces the <on unit> established by L2 
because L2 and L3 are <statement>s in the same block activation. The <revert 
.statement> reverts the <on unit> established by L3 and causes the <on unit> 
established by LI to be the current <on unit> for the condition. 

If no <on unit> has been established for a condition and the condition is signalled, 
a default <on unit> is invoked which performs the default action described for 
that condition in paragraph 10. U. a default <on unit> is explicitly established 
by an <on 3tatement> of the form: 

on <condition list> system; 

An <on unit> is invoked as if it were a <prooedure>. When control reaches the 
end of the <on unit> it returns to the point where the condition was detected. 



10.3.1 Hestrictions 

The program is in error and the results of continued execution are undefined if 
an <on unit> invoked for any of the following conditions returns to the point 
where the condition was detected. 

area (if caused by assignment) 

error 

fixedoverflow 

overflow. 

size 

storage (if caused by stack overflow) 

stringrange 

subscriptrange 

zerodivide 

If a condition is signalled during evaluation of an <expression>, but not during 
execution of an irreducible function invoked by the <expression> , and the responding 
<on unit> returns to the point where the condition was signalled, then the <on 
unit> must not. have allocated, freed, or assigned a value to any generation of 
storage known at the point-where the condition was signalled. 

This effectively means that conditions are considered to be unexpected side 
effects of <expression> evaluation and their <on unit>s cannot change the values 
of variables being used by the interrupted <block> unless the <on unit> executes 
a <goto statement} to return to the interrupted <block>. 

An <on unit> invoked as a result of a condition detected during evaluation of a 
<statement> cannot access the value of a variable whose value is changed by the 
execution of the <stateiiient>. 

Example: 

on zerodivide begin; 

X = A; 

go to trouble; 

end; 
A s B/C; 

The value of A is not defined upon entry to the <on unit> and, therefore, cannot 
be accessed by the <on unit>. Programs which access such values are in error 
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^S?^i^^>1t'"•^'^' °^ continued execution are undefined. This example would be 
valid if it were rewritten as follows: 

on zerodivide begin; 

A = X; 

go to trouble; 

end; 
A = B/C; 

This example is now valid because the <on unit> does not access the value of A- 
it only accesses the generation of storage of A. ' 



10.4 PL/I Conditions 

In the following discussion, a <reference> is understood to be a <referenoe> to 
a file value. Refer to Section 11 for a description of the relationship between 
file values, file-state blocks, and data sets. 

In the following discussion, error output is understood to be the Multics 
I error_output I/O switch. 

Although the description of each condition states when the condition occurs, the 
following conditions may occur anytime during execution of the program: 

underflow 

overflow 

fixedoverflow 

zerodivide 

size 

strlngsize 

storage 

area 

error 

These conditions occur when the compiled code or any of its supporting subroutines 
exceed one or more of their limitations or when they detect an error. Execution 
of a valid program does not normally cause these unexpected conditions to occur. 

10.4.1 Area Condition 

Syntax: 

<area condition name>::s area 

This condition occurs when an <allocate statement> attempts to allocate a generation 
of a baaed variable in an area whose size is insufficient to contain the generation. 
T"" ""fn an^ < assignment 3tatement> assigns an area to an area whose size is 
insufficient to contain the assigned area. If an <on unit> returns to the point 
where the condition was detected and the condition was signalled by the execution 
of an < assignment statement> , the program is in error. If the condition was 
signalled by the execution of an <allocate stafcefflent>, the allocation is retried 
including reevaluation of the <in option> of the <allocation>. Unless the <on 
unit> has freed sufficient storage in the area or caused the value of the <in 
option> to change to an area that has sufficient storage, the condition will 
occur again. 

^•^A"/^"^*^ ^°" unit> writes a comment on error output and signals the error 
condition. ~ 
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10.4.2 Conversion Condition 



Syntax: 



<conversion condition name>::= conversion I conv 

This condition occurs when an invalid character-string or character-pictured 
value is converted to an arithmetic or bit-string value. Refer to Section 8 for 
a discussion of character-string conversion. 

Just before the condition is signalled, the current values of the onsource and 
onchar built-in functions are pushed down and the value being converted is 
assigned to "onsource". The leftmost character for which the' conversion failed 
is assigned to "onchar". If the conversion is being performed by stream 
input/output^ the current value of the onfile built-in function is also pushed 
down and the current file name is assigned to "onfile". Refer to Section 11 and 
paragraph 13.5. 

If an <on unit> returns to the point where the condition was detected, the 
conversion is retried using the value of the current generation of "onsource". 
Unless the <on unit> has assigned a new value to the "onsource" or "onchar" 
pseudo-variable, the condition will occur again. 



The default 
condition.. 



<on unit> writes a comment on error_output and signals the error 



10.4.3 Endflle Condition 



Syntax: 

<endfile Gondition-name>r:= endfile(<ref erence>) 

This condition occurs when a <get statefflent> or <read statement> attempts to 
read past the end of the data set attached to the file-state block identified by 
the file value of the <reference>. 

Just before the condition is signalled, the current value of the onfile built-in 
function is pushed down and the current file name is assigned to "onfile". If 
the file-state block identified by the file value of the <reference> has the 
<keyed attribute> , the current value of the onkey built-in function is also 
pushed down and the current key value is assigned to "onkey". Refer to Section 
11 and paragraph 13.5. 

Repeated attempts to read past the end of the data set cause the condition to be 
signalled for each attempt. If an <on unit> returns to the point where the 
condition was detected, control returns to the <statement> following the <get 
statement> or <read statement> . 



The default 
condition. 



<on unit> writes a. coimnent on error output and signals the error 



10.4.4 Endpage Condition 

Syntax: 

<endpage condition name>::=^ endpage(<reference>) 

Let linenumber and pagesize be control values of the file-state block identified 
by the value of the <reference>. 



7/78 



10-5 



AG94B 




This condition occurs when a <put statement> places a linemark into the data 
stream and the newly updated linenumber equals the pagesize+1 . 

If the condition 
return from 
because of t 
<skip forma 
ignored. 

1"^^^^®^°""^ ^^^ condition is signalled, the current value of the onfile built-in 
function IS pushed down and the current file name is assigned to "onfile" 
Refer to Section 11 and paragraph 13.5.4. -^s^c" ^^ oniiie , 

Snr'^n/l?h£T ^^^ signalled the linenumber is one greater than the pagesize. 
During the execution of the <on unit> or after return from the <on unit> without 
fn2f!L °?^H°P- °r /P^^® format> having been evaluated, the linenumber may 
form^t>%h^^ ^^'"^H^^r «°"«^«':' evaluation of a <line option> or a <line 
forraat> that would have caused the endpage condition does not cause the 
condition, but instead writes a pagemark into the output stream. 

I^L^'^^K^"^! ^?" ""l^^^ places a pagemark into the data stream, resets the 
linenumber to 1, and returns to the point where the condition was detected. 

10.4,5 Error Condition 

Syntax: 

<error condition name>::= error 

This condition is signalled by the default <on unit>s for several conditions. 
It IS also signalled by the mathematical built-in functions as described in 
paragraph 13.3 and by the exponentiate operator as described in Section 7. 

JLn^i/S" ^r^^^ attempts to return to the point where the condition was 
signalled, the program is in error and the results of continued execution are 
unaei med > 

The default <on unit> writes a comment on error output and returns to the 
Multics command processor. If the start command is" typed on the console, then 
control returns to the point where the condition was signalled, but the program 
13 in error and the effects of continued execution are undefined. 

10;4.6 Finish Condition 

Syntax: 

<finish condition name>:: = finish 
I This condition occurs when the process or run unit has attempted to terminate. 

# The default on-unit returns to the point where the condition was detected. 

If process or run unit termination results from partial destruction of the 
process or run unit, or exhaustion of process resources, the signal may or may 
not occur and the correct execution of the <on-unit> may or may not occur. 
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10.4.7 FixedoverflQw Condition 

Syntax: 

<fixedoverflow condition name>::s. fixedoverflow! fofl 

Iv^Lh^^^^k^®" °^°"''? "^r"^ ^^^ ''®^"^* °^ ^ ^^^^^y fixed-point computation 
exceeds 71 binary digits. If an <on nnit> returns to the point where tiie 
condition was detected, the program is in error and the results of continued 
execution are undefined. 

The default <on unit> writes a comment on error^output and signals the error 
condition. 



10.4.8 Key Condition 

Syntax: 

<key condition name>::= key(<reference>) 

This condition occurs when a <key option> specifies a key value that does not 
Identify any record in the data set attached to the file-state block identified 
by the by the file value of the <ref erence> . It also occurs when a <keyf rom 
option> specifies a key value that identifies a record that already exits in the 



Just before the^ condition is signalled, the currentreeord and nextrecord values 

?L n P.f «^~^!^^® ?-'-°-'^ *''® set-to undefined values, and the current values of 
the "onfile" and "onkev" built-in fiinnh-inn« a«» ,M,«i,g^ ^ -_^ <.u- ...__- J:"". ,_ 

name is assigned to "onfile" and the current key value is assigned to "onkey". 
Refer to- Section 11 and paragraph 13.5. 

If an <on unit> returns to the point where the condition was detected, control 
returns to the <3tatement> following the <3tatement> that caused the condition 
to occur. 

The default ' <on unit> writes a comment on error_output and signals the error 
conaition. 



10.4.9 Mame Condition 

Syntax: 

<name condition name>::s name(<reference>) 

This condition occurs when a stream data set is being processed by a <Ket 
statement> containing a <get data>. It occurs if the stream f-ontain^ ^ <ha«i'- 
reference> that does not identify a variable whose scope of declaration includes 
•5® :?1 3tatefflent>, or if the stream contains a <basic reference> that 
Identifies a^ variable that is not identified by a <get data ref> specified by 
the <get data>. ^ 

Just before the condition is signalled, the current value of the "onfleld" and 
onfile" built-in functions are pushed down and the current file name is 
assigned to "onfile". The character-string extracted from the data stream by 
the <get 3tatement> is assigned to the "onfield" built-in function. Refer to 
paragraphs 12.14 and 13.5. 

If an <on unit> returns to the point where the condition was detected, 
processing continues with the next input field in the stream. 



10-T AG94 



The default <on unit> writes a comment on error_output and returns to the point 

where the eondifci nn uas rlairani-a^ 



where the condition was detected 

10.4.10 Overflow Conditinn 

Syntax: 

<overflow condition name>::= overflow! of 1 



This condition occurs when the result of a floating-point computation has an 
exponent that exceeds 127. If an <on unit> returns to the point where the 
condition was detected, the program is in error and the results of continued 
execution are undefined. 

The default <on unit> writes a comment on error output and signals the error 
condition. 



10.4.11 Record nonrli hi,r»r. 

Syntax: 

<record condition name>::= record (<reference>) 

This condition occurs when a <read statement> reads a record that is not equal 
to the size of the variable specified by the <into option>. 

Just before the condition is signalled, the current value of the "onflle" 
built-in function is pushed down and the current file name is assigned to 
onfile". If the file-state block identified by the file value of the 
<reference> has the <keyed attribute> the current value of the "onkey" built-in 
function is also pushed down and the current v«v waTno i « aao-i <TT,<.rf 4-^ «^^i,^,.n 
Refer to Section 11 and paragraph 13.5. ' ° "" """'"'' " 

If an <on unit> returns to the point where the condition was detected, execution 
continues as described in paragraph 12.23. 

The program is in error and the results of continued execution are undefined 
unless the variable is a valid left part of the record, or the record is a valid 
left part of the variable. In the former case, excess data in the record is not 
input. In the later case, only the left part of the variable receives a value. 
A variable or record is a valid left part of another variable or record if and 
u°fy, i^^ their generations of storage conform to the rules given in paragraph 
4.3,3.2 for the sharing of storage by based variables. 

The default <on unit> writes a comment on error_output and signals the error 
condition. "" 



10.U.12 Size Condition 

Syntax: 

<3i2e condition name>::=; size 

This condition occurs when a value is converted to a fixed-point target value, 
and the target's precision and scale factor does not provide sufficient digits 
to the left of the decimal or binary point to represent the inteeral dieits of 
tne converted value. " - 

The size condition also occurs when the result of a decimal fixed-point 
computation exceeds 59 decimal digits. ix*eu t,oj.n., 
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The condition also occurs during format controlled output conversion when the 
output field described by a <fixed-point format> or a <f loating-point format> is 
insufficient to hold the converted value. Refer to paragraphs 8.2.11.1.2 and 
3.2.11.2.2. 

The condition also occurs when a negative value is assigned to a target whose 
declaration contains the <unsigned attribute>. 

If an <on unit> returns to the point where this condition was detected, the 
program is in error and the results of continued execution are undefined. 

The default <on unit> writes a comment on error_output and signals the error 
condition. 



10.4.13 Storage Condition 

Syntax: 

<storage condition name>::= storage 

This condition occurs when the Multics stack segment is about to overflow, or 
when the "system storage" used to allocate controlled and based variables is 
full. 

If the Multics stack segment is about to overflow, the Multics "stack" condition 
is signalled. Its default <on unit> signals the PL/I storage condition. In 
this case, the <on unit> for the storage condition cannot require more than four 
pages of stack storage. If the <on unit> returns to the point where the 
condition was detected, the program is in error and the results of continued 
execution are undefined. Refer to the Multics Programmers' Manual. 

If the condition was signalled'"' because "system storage" was full and the <on 

unit> returns to the point where the condition was detected the allocation is 

retried. Unless the <on unit> has freed sufficient storage in "system storage", 
the condition will occur again. 

The default <on unit> writes a comment on error output and signals the error 
condition. ~ 



10.4.14 Stringrange Condition 

Syntax: 

<stringrange condition name>::= stringrange I strg 

This condition occurs when the substr built-in function or <substr pseudo> 
specify a substring that is not completely contained in the string value that 
appears as the first argument of the substr reference. If an <on unit> returns 
to the point where the condition was detected, the program is in error and the 
results of continued execution are undefined. 

The default <on unit> writes a comment on error output and signals the error 
condition. ~ 



10.4.15 Stringsize Condition 

Syntax: 

<stringsize condition name>::= stringsizel strz 
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This condition occurs when a value is converted to a string target value and the 
target's generation of storage is insufficient to contain the string value. If 
an <on unit> returns to the point where the condition was detected, the string 
value is assigned to the target from left-to-right until the target is full and 
any excess characters or bits are truncated. 

The value of the target is undefined at the time the condition is signalled. 

The default <on unit> returns to the point where the condition was detected. 



10.4.16 Subscriptrange Condition 

Syntax: 

<subsGriptrange condition name>::= subscriptrange! subrg 

This condition occurs when the value of a <subscript> exceeds the <bound>3 of 
the diaension to which it applies. If an <on unit> returns to the point where 
the condition was detected, the progran is in error and the results of continued 
execution are undefined. 

The default <on unit> writes a comment on error_output and signals the error 
condition. 



10.4.17 Transmit Condition 

Syntax: 

<transiBit condition name>::= transmit (<reference>) 

This condition occurs when data cannot be reliably transmitted between the data 
set attached to the file-state block identified by the file value of the 
<reference> and one or more of the values specified in a <get statement>, <put 
statement>, <read statement>, <write statement>, <rewrite statement> or <locate 
statement>. 

The value of any datum whose transmission caused the condition is undefined. 

Just before the condition is signalled, the current value of the "onfile" 
built-in function is pushed down and the current file name is assigned to 
"onfile". If the file-state block identified by the file value of the 
<referenoe> has the <keyed attribute> the current value of the "onkey" built-in 
function is also pushed down and the current key value is assigned to "onkey" . 
Refer to Section 11 and paragraph 13.5. 

If an <on unit> returns to the point where the condition was detected, control 
returns to the <statement> following the <statement> that caused the condition 
to occur. 

The default <on unit> writes a comment on error_output and signals the error 
condition. 



10.4.18 [Jndefinedfile Condition 



Syntax: 



<undefinedfile condition name>::= {undefinedfile lundf } 
(<reference>) 
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This condition occurs when an attempt to open a file-state block is 
H^f^^^^r^''^; It an <on unit> returns to the point where the condition was 
detected and the <statement> being executed is an <open statement>, execution 
continues with the evaluation of the next <opening> of the <open statement>. If 
an <on unit> returns control to the point where the condition was detected and 
the <statement> being executed is not an <open 3tatement>, the file must have 
been opened by the <on unit>. If it is not yet open, the error condition is 
"nn?f^«" A.ni;^"?! ^^^^^''^ ^^^ condition is signalled, the current value of the 
onfile 'built-in function is pushed down and the current file name is assigned 
CO "onfile^. »uj.6i2=i. 

The default <on unit> writes a comment on error_output and signals the error 
condition.. 



10.^.19 Underflow Condition 

Syntax: 

<underflow condition name>::s underflow I ufl 

This condition occurs when the result of a floating-point computation has an 
exponent leas than -128. The result of the computation is set to zero before 
the condition is signalled. If an <on unit> returns to the point where the 
condition was detected, execution continues using a value of zero. 

The default <on unit> writes a comment on error_output and returns to the point 
where the condition was detected. 



lu-t.-su z,erodivide Condition 

Syntax: 

<zerodivide condition name> :: = zerodivide I zdiv 

This condition occurs when the divisor of a fixed-point or floating-point 
computation is zero. If an <on unit> returns to the point where the condition 
was detected, the program is in error and the results of continued execution are 
unaeiined . 

The^default <on unit> writes a comment on error_output and signals the error 
condition. 



10.4.21 MultiCS and Programmer Defined n onditinn.-. 

Syntax: 

<programmer defined condition name>::= 

{aondition|cond}(<identifier>)|<identifier> 

Si JiH®?n^fwi''^Ki°°^s "^®** !° designate a PL/I condition and not otherwise 
declared in the <block>, except as the name of a structure member, can be 

S^™L/h ^f ^°"'*^^^?? ^°'* ''^*'* ^'^ designate a programmer defined condition. 
Programmer defined conditions behave just like other PL/I conditions, except 
that the only way they are signalled is by the execution of L <signal 
<coSd?tion'at?S;ute;?"°"°° ' '"^ * diacussion of declarations and 'the 

Jnoi„H-i^^«^^v,°^®''!*^5*o,!?^*®° defines a number of conditions that are not 
included m the set of PL/I conditions. These conditions are considered to be 
programmer defined conditions and behave as such, except that they may be 
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signalled by the Multics operating system or by the execution of a <signal 
statement>. Refer to the "Multics Programmers' Manual". sj-sn^x 

The default <on unit> writes a comment on error output and calls the Multics 

Chf^!"?hr°°®M^r' ^^ ^^® "start" command is typed control returns to the point 
where the condition was signalled. ^"-■."1' 
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SECTION 11 
INPUT/OUTPUT 

11.1 Data Sets 

A data set is either a stream data set or a record data set, 



11.1.1 Stream Data Sets 

A stream dat^ sgt. is an ordered sequence of data characters and .control 
characters. A control character is a pagemark or linemark. A data character is 
any ASCII character, other than those used as control characters. A linemark is 
an ASCII new line character. A oaeemark is an ASCII new page character. The 
effects of these control characters on the I/O mechanism are discussed in 
paragraph 11.2. 

Stream data sets are operated upon be the execution of <get 3tatement>s and <put 
statement>s as described in section 12. 



11.1.2 Record Data Sets 

A record data set is a set of discrete records each of which- is the internal 
representation of a PL/I value. The Multics system supports two kinds of record 
data sets: sequential data sets and indexed sequential data sets. A sequential 
data ^ei is an ordered sequence of records without keys. An indexed secuentiaJ, 
data set is an ordered sequence of records each identified by a unique key. A 
k£i. is a character-string whose maximum length is 256 characters. 

Records of a sequential data set are in chronological order; that is, the order 

in which they were written. Records of an indexed sequential data set are in 

key order, that is record, x precedes record y if and only if the key of x is 
less than the key of y. 

Record data sets are operated upon by the execution ofr <read 3tatement>s, 
<write statement>s, <rewrite statement>s, <delete statement>s and <loGate 
statement>3 as described in Section 12. 



n.2 File Values and File-state Bionics 

A fjj^ value identifies a file-state block. A file constant always identifies 
the same file-state block, but a file variable can identify any file-state 
block. A file-state bloc^r sometimes called a file , is a composite value that 
describes the relationship between, the program and a data set . 

k progranr has as many file-state blocks as it has file constants.. The file 
description attributes declared for- a file constant are really properties of the 
file-state block.. 
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A file-State block consists of: 

1. Name of the file-state block, (filename) 

2. A data set designator, (title) 

3. Current record designator, (currentrecord) 

4. Next record designator, (nextrecord) 

5. Stream position designator, (streamposition) 

6. Initial file description attributes, (initialdescription) 

7. Current file description attributes, (filedescription) 

8. Input buffer. 

9. Output buffer. 

10. Open/closed status. 

11. Current line size, (linesize) 

12. Current page size, (pagesize) 

13. Current column position, (columnposition) 

14. Current line number, (linenumber) 

15. Current page number, (pagenumber) 

16. External/internal status. 

The parenthesized names are used throughout this document to denote the 
components of a file-state block. The meaning of each value is discussed below: 

The filename is a varying character-string of maximum length 32 that is the name 
of the file-state block. The <deGlared name> of the file constant that 
identifies the file-state block is the filename. 

Example: 

declare f file constant; 

The file-state block identified by the file value of f has a filename of "f". 

The title is a character-string that is used as a Multics I/O attach description 
as described in paragraph 11. 3. 

The; currentrecord is either null or it designates a record in the data set 
designated by title. 

The nextrecord is either null or it designates the next record in the sequential 
data set designated by title. Each time that the value of currentrecord is 
changed, the value of nextrecord is updated. When the currentrecord has been 
set null by the execution of a <delete statement> as described in paragraph 
12.8, the nextrecord is used to find the next record of a sequential data set. 

If the <get statement> or <put 3tatement> contains a <3tring option> instead of 

a <file option>, data stream is understood to be the string value identified by 

the <string option>; otherwise, it is understood to be the data set associated 
with the file. 

The streamposition is either null or it designates the current character in a 
stream data set. 

The initialdescription is the set of file description attributes declared for 
the file constant whose value identifies this file-state block. 

Example: 

declare f file stream input; 

In this example, the initial file description attributes are "stream" and 
"input". 

The filedescription is the set of attributes that describe^ the data set. It is 
formed when the file-state block is opened as described in paragraph 11.3. 

The input buffer is used to support the execution of <read statement>s 
containing a <set option> and is described in paragraph 12.23. 



7/79 11-2 AG94C 



is%ilSSeff??ara%rap1 12.1?''°^' ''' ^^^°"''°" °' ^'^ '^°"=^^^ 3tate«ent> an. 

Inltiffly^lfft cJosed/""'"^'" "'''""" ''^ file-state block is open or closed. 

J»f ^^r^T^^^ ,^^ ■ ^^^ m^imum number of data characters that may be written 
<^^o=2 Unemarlfs in a data stream attached to a file-state block that has the 
<otream attribute> and <output attribute>. During stream output a linemark is 
f^^P^.V.:"''®"^^^'',^ character is to be output and cclumnposition = linesize-Kl . 

e 
g 



Linemarks are also output fay evaluation of <skip option>s, <3kip format>s, <lin 

T<c°T.L ^^^r™-H"^ r°:"^^>^-„ T^«y =^" ^1=° be output as'a resSlt of evaiuaUn 
a <column rormat>. Heier to Section 12. 



The paResize is the maximum number of linemarks that may be written between 
pagemarks in a data stream attached to a file-state block that has the <print 
attribute> without causing the endpage condition to occur. During output on a 
file that has the <print attribute>, the endpage condition is signalled whenever 

irUesTpagema??^^^"* * ^' ^^^ ''^^^"^'^ ^°" ""^^' ^°'' ^^^ ^"^P^^^ condition 

The columnposition is the number of data characters input or output since the 
itlLJl'l^'!!^''.^ plus one. In other words, it is the column into which the next 
character will be written, or the column from which the next character will be 
read. The input or output of a linemark sets the columnposition to 1. 

The l:^nenumber is a count of the number of linemarks output since the last 
pagemark plus one. The output of a pagemark sets the linenumber to 1 . 

The pagenumber is a count of the pagemarks output since the file was opened plus 
one. The initial value of pagenumber is 1. Mote that pagenumber can be set by 
the <pageno pseudo> described in paragraph 12. 2» 

The MiirmL/inJiaaiai, status indicates the scope of the file constant whose 
value Identifies this file-state block.. «a<-<int wnose 



11,3 Opening a File 



A file is opened by performing the following steps in the indicated ordei 



Form the- filedescription by forming the union of the initialdescription and 
the <opening attribute>s supplied by the <statement> 
opening. The following table gives the <opening 
input/output <statement>s capable of opening a file. 



performing the 
attribute>3 for ail 



Statement 

<get statement> 
<put statement> 
<read' statement> 
<write 3tatement> 
<rewrite statement> 
<locate statements 
<delete statement> 
<open atatement> 



Opening Attributes 

stream input 
stream output 
record input* 
record output* 
record update 
record output 
record update 
• <opening attributes> 
given in <statement> 



* If the initialdescription specifies an <update attribute>, the <input 
attributes or <output attribute> is not one of the <opening attribute>s 
deduced from a <read statement> or <write statement>. 



2. Augment the filedescription with the <attribute>s 
<attribute> already in the description. 



implied by any 
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Attribute Implied Attribute 

direct record keyed 

keyed record 

Pfint stream output 

sequential record 

update record 

3. If, after supplying implied <attribute>s, the filedescription is missing 
one of the following required <attribute>s, the required <attribute> is 
supplied by default. 

Required Attributes Default 

stream I record stream 

input I output I update input 

sequentialldirect sequential (if record) 

4. If the filename is "sysprint" and the file-state block is external and the 
filedescription contains the <stream attribute> and the <output attribute>, 
augment the filedescription with the <print attribute>. 

5. The filedescription must now be a set of <attribute>s described by the 
following syntax: 

<consistent file de3cription>: : = <stream description> ! 
<record description> 

<stream description>: : = streamiinput loutputCprint] 
[environmentC interactive) ]} 

<record description>: : = recordiinput loutput iupdate} 
{<sequential description> Kdirect description>} 
[environment(stringvalue) ] 

<3equential description>: : = sequentialCkeyed] 

<direct description>: : = direct keyed 

6. If the filedescription contains the <print attribute> and the ooenine is 
being performed by the execution of an <open 3tatement> and the "<opening> 
contains a <pagesize option>, pagesize is set to the converted value of the 
<pagesi2e option>; otherwise, it is set to a default value that depends on 
the device or data set to which the stream is attached. If the stream is 
attached to a terminal, pagesize is set to infinity, thereby preventing an 
endpage condition from occurring; otherwise it is set to 60. 

If the opening is being performed by the execution of an <open statement> 
and the <opening> contains a <pagesi2e option>, the filedescription must 
contain the <print attribute>. 

7. If the filedescription contains a <stream attribute> and an <output 
attribute>, and the opening is being performed by the execution of an <open 
statement> and the <opening> contains a <linesize option>, linesize is set 
to the converted value of the <linesize option>; otherwise, it is set to a 
default value that depends on the Multios I/O System attachment. If the 
Multics I/O switch is attached to a terminal, linesize is set to the 
current linesize of the terminal; otherwise, it is set to 132. 

If the opening is being performed by the execution of an <open statement> 
and the <opening> contains a <line3ize option>, the filedescription must 
contain the <stream attribute> and the <output attribute>. 

8. If the opening is being performed by the execution of an <open statement> 
and the <opening> contains a <title option>, let t be the converted value 
of the <title option>; otherwise, t is defined by the following: 

If the filename is "sysin" and the filedescription contains the 
<stream attribute> and <input attribute>, let t be ''syn_ user_input''. 
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If the filename is "sysprint" and the f iledescription contains the 
<streara attribute> and <output attribute>, let t be 
"3yn_ user_output" . 

If neither of these two cases applies, let t be "vfile_ filename". 

The character-string t is passed as an attach description to the Multics 

I/O system. Refer to the Multic-s PL/I Reference Manual, for a complete 

description of the relationship between the Multics PL/I language and the 
Multics I/O system. 

9. If the filedescription contains an <output attribute>, any existing data 
set designated by the title is normally deleted and a new data set 
conforming to the file description is created. 

If the filedescription con-tains an <input attribute> or <update attribute>, 
the data set designated by the title is checked for conformance with the 
filedescription. The following table shows all valid f iledescriptions for 
each type of data set. 
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Data Set 

stream 

sequential 

indexed sequential 



File Description 

stream input 

sequential record{ input | update} I 
stream input 

sequential 

record{ input I update} [keyed] | 

record direct keyed{ input I update} 

If the filedescription contains a <stream attribute>, the columnposition is 
set to one. If it also contains the <print attribute>, the linenumber and 
pagenuraber are set to one-^ If it contains the <stream attribute> and the 
<input attribute>, then the streamposition is set to the first character in 



If the filedescription contains the <reGord attribute> and does not contain 
the <output attribute>, nextrecord is set to designate the first record in 
the data set. 

In all other cases, the values of currentrecord , nextrecord or 
streamposition are null. 

11. If steps 1 through 10 were successfully performed, the open/closed status 
is set "open"; otherwise, the undef inedf ile condition is signalled. 



11.4 Closing a File 



A file is closed by performing the following steps in the indicated order: 

1. If there is an output buffer, a new record is created in the data set and 
the cortent of the buffer is written as the value of the new record. If 
there is an evaluated key associated with the buffer, it is associated with 
the new record as its key. If any record in the data set already has thi's 
key, the key condition is signalled. 

If the file does not have the <keyed attribute>, the new record is appended 
to the end of the data set; otherwise, the new record is inserted into its 
proper place within the data set as determined by its key. After the 
record is written, the- output buffer is freed. An output buffer exists 
when the last output operation on the file was the execution of a <locate 
statement> . 
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2. If there is an input buffer, it is freed. This circumstance occurs when 
the last input operation on the file was the execution of a <read 
statement> containing a <set option>. 

3. If the data set was attached by the execution of a PL/I input/output 
<statement>, the Multics I/O system is called to detach the data set. 

4. The open/closed status is set "closed". 

Files are closed by the execution of a <close stateraent>, upon normal 
termination of a process or run unit, or by the Multics command: close file. 

If process termination results from partial destruction of the process or 
exhaustion of process resources, the files open in that process, and in 
contained run units, may or may not be closed. The same applies to run unit 
termination. 

Note that if a process terminates without closing a file, the contents and state 
of the data set designated by that file are undefined. 



11.5 Conditions and Files 

Several of the conditions described in Section 10 are detected during the 
execution of input/output <statement>s. Each I/O condition name contains a 
<reference> to a scalar file value. The file value identifies a file-state 
block and effectively qualifies the condition name. An endfile condition for 
file f is a different condition from an endfile condition for file g. Refer to 
Section 10 for a full discussion of conditions. 

Example: 

on endfile(f) begin; ... end^; 

on endfile(g) begin; ... end; 

Execution of the <statement>s in this example establishes two <on unit>s, one 
for endfile on file f the other for snd*'''^'^ '^'' '■■'■'•^ " 

It is important to realize that the I/O conditions are qualified by the file's 
state block, not by the <reference> used in the condition name. 

Example: 

declare f file variable, g file constant; 

f = g; 

on endfileCf) begin; ... end; 

on endfile(g) begin; ... end; 

Execution of the second <Qn statement> in this example reverts the <on unit> 
established by the execution of the first <on statement> because f and g both 
identify the same file-state block. 
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SECTION 12 
SYNTAX AND SEMANTICS OF STATEMENTS 



Throughout this section, whenever the execution of a <stat8ment> is described 
the evaluation of its options and parts as if the option or part were present is 
described. Such descriptions are not to be taken as an indication that the 
described option or <statement> part is required; only the syntax and 
constraints indicate whether or not an option is required. 



12.1 The Allocate Statement 

Syntax: 

<allocate statement>: : = [<prefix>] {allocate {alloc } 
<allocation>[ , <allocation> ] . . . ; 

<alloGation>: := <allocation reference> 
{[<in option>J[<set opJ:ion>]| 
[<set option>][<in option>]} 

<in option>: := in(<reference>) 

<set option>::= set(<reference>) 

<allocation reference>: := <identifier> 

Constraints: 

Each <allocation reference> must identify a level-one based or controlled 
variable. 

Evaluation of the <reference> in a <set Qption> must yield a generation of 
storage of a scalar locator variable. 

Evaluation of a <reference> in an <in option> must yield a generation of storage 
of a scalar area variable. 

If the <allocatlon reference> of an <allocation> identifies a controlled 
variable, the <in option> and <set option> must be omitted. 

If the <allocation reference> of an <allocation> identifies a based variable and 
the <set option> is omitted, the based variable must be declared with a <based 
attrit;:ite> containing a <locator qualifier>. In that case, the <looator 
qualifier> is used as a <set option> and it must satisfy the constraints 
specified for the <set option>. 

If the <set option> or derived <set option> of an <allocation> identifies an 
offset variable, the <in option> must be present or che offset variable must 
have been declared with an <offset attribute> containing: a <reference>. In the 
latter case, the <refe:-jnGe> is used as the <in option>, and it must satisfy the- 
constraints specified for the <in option>. 
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If the <set option> or derived <set option> identifies a pointer variable and 
the <in option> is omitted, a default area called "system storage" is supplied 
as the <in option>. 

Semantics: 

An <allocate statement> is executed by evaluating its <allocation>s from 
left-to-right. Each evaluation consists of performing one of the following: 

1. If the <allocation reference> identifies a controlled variable, a new 
generation of the controlled variable is allocated in "system storage". 
The newly allocated generation and its evaluated extents are stacked on the 
previous generation and its extents. References to the variable reference 
the newly allocated generation and references to the extents of the 
variable reference the extents of the newly allocated generation. The 
<initial attribute>s of the controlled variable's declaration are evaluated 
in an unspecified order and initial values are assigned to the newly 
allocated generation. 

2. If the <allocation reference> identifies a based variable, a new 
generation of the based variable is allocated in the area identified by the 
<in option> and a locator value that identifies the generation is assigned 
to the variable identified by the <3et option>. The <initial attribute>s 
of the based variable's declaration are evaluated in an unspecified order 
and initial values are assigned to the newly allocated generation. Before 
initialization, the value of the <expression> of each <refer option> is 
assigned to the variable identified by the <reference> of the <refer 
option>. 

If insufficient storage exists within the area identified by the <in option>, 
the area condition occurs. If insufficient storage exists within "system 
storage", the storage condition occurs. Refer to paragraph 10.4 for a 
discussion of the area and storage conditions. Refer to paragraph 4.3.2 for a 
discussion of storage classes and storage allocation. 

Examples: 

allocate X setCP); 

allocate X.Y.Z; 

allocate X in(A) set(P),Y in(B) setCQ); 



12.2 The Assignment Statement 



Syntax: 



<assignment statement>: := [<prefix>]<target>[ , <target>] , 
=<expression>[ ,<by-name option>] ; 

<target>: : = <ref erence> I <pseudo-variable> 

<pseado-variable>: :s <string pseudo> Ksubstr pseudo> I 
<unspec pseudo>| <pageno pseudo> I <real pseudo> ! 
<imag pseudo>|<on<;hap pseudo>l<onsource pseudo> 

<string pseudo>::= 3tring(<reference>) 

<substr pseudo>::= substr(<reference>, 
<expression>C ,<expresslon>]) 

<un3pec pseudo>::= un3pec(<reference>) 
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<real pseudo>::r real(<reference>) 
<imag pseudo>::= imag(<reference>) 
<onchar pseudo>::= onchar[()] 
<onsource pseudo>::= onsourceCO] 
<by-nanie option>::= by name 
Constraints: 

If the <expression> is a <reference> to a scalar character-string or bit-string 
variable, the generation of storage identified by that <reference> cannot 
overlap the generation of storage identified by any of the <target>s if the 
generation of storage identified by the <target> starts to the right of the 
start of the generation of storage identified by the <expression>. Refer to 
paragraph 4.3.3 for a discussion of storage sharing. 

Because of compiler optimizations, if the <expression> is a <reference> to the 
string, substr, or unspec built-in functions, and the first argument of the 
<reference> is a <reference> to a variable, the <expression> is considered to be 
a <reference> to a, generation of storage, and the constraint in the previous 
paragraph applie-s. 

Evaluation of the <expression> cannot: allocate, free, or assign a value to any 
<target>, or any generation of storage identified by any <reference> contained 
within any <target>; i.e. <sub3cript>s, etc. 

Evaluation of the <reference> in a Otring pseudo> must yield a generation of 
storage of a scalar or aggregate string variable suitable for string-overlay 
defining as described in paragraph 4.3.3.6. "verxay 

^t^i=!l^«^ °^ ''*'^ <refer«nce> in a <substr pseud6> must yield a generation of 
11° f,Lf.J ^°^^^!: °r agSi-esate string variable. If any scalar component of 
«;;::^o^rT^T" '"'"" :;'ee-^areu witn the <varying attribute>, that component must 
currently have a value. 

Evaluation of the <expression>s in a <substr pseudo> must yield scalar or 
^f™=^^ arithmetic or string values. If either <expression> yields an 
aggregate value its aggregate type must not be higher than the aggregate type 
of the <reference> of the <3ub3tr pseudo>. oo s jy 

^^oi^f!"^ °^ ^^f <reference> in an <unspec pseudO must yield a generation of 
storage of a scalar or aggregate variable whose storage is connected. 

valief"" °^"^^* <reference> in a <pageno pseudo> must yield a scalar file 

aIniiJfJfnn o^ ^^^ <reference> in a <real pseudo> or <imag pseudo> must yield a 
generation of storage of a scalar or aggregate complex variable. 

If evaluation of the <expression> yields an area value, it must be a scalar area 
value and each <target> must be a <reference> to a scalar area variable! 

<?nn5f,-on^^^if"^"'' statement> contains a <by-name option>, it may contain no 

i^^?H- f ^!^eference>s yielding non-scalar values unless they are contained 

t^tf <i°°ator qualifier>, a <subscript>, or an <argument li3t> This 

funStio^s uSL^^h °f,«t'-"°*"'-«- or array-valued procedure fSSSIJonsanSbuilt-Jn 
functions when the <by-name option> is specified. 
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If the <assignment statement> contains a <by-name option>, it may not contain 
any <pseudo-variable>s, and all <target>s must be <reference>s to structures or 
arrays of structures. 

Semantics: 

If evaluation of the <expression> yields an area, let A denote that area and 
assign A to each <target> taking them from left-to-right. If the size of a 
target area is insufficient to contain A, the area condition occurs. A target 
area must be large enough to contain all generations currently allocated in A 
and must be large enough so that each generation can be allocated in the ta'-aet 
area with the same offset as it had in A. - -e 

If the <as3ignment statement> contains a <by-name option>, the following steos 
are performed: 

1 . For each <target> in the <assignment statement> and for each 
<reference> to a structure contained in the <expression> but not 
contained within a <locator qualifier>, <subscript>, or <argument 
list>, create a list of names of all non-structure members of the 
referenced structure or contained substructures. Each member's name 
includes the names of its contained structures up to but not including 
the name of the structure identified by the structure <reference>. 

2. Form the intersection of the lists created in step 1 and call the 
resulting list the by-name-parts-list . If the by-name-parts-list is 
empty, treat the <assignment statefflent> as a <null statement>. This 
means that only names that are contained in all <target>s and all 
appropriate <reference>s in the <expression> will be assigned. 

3. Determine the aggregate-type for each <target> and for each 
<reference> to a structure contained in the <expression> but not 
contained in a <locatOF-.qualifler>, <subscript>, or <argument list> by 
the following method: 

a. Each <reference> is a structure- or array of structures depending 
on its <declaration> and <subscript3>, if any. 

b. The structure or array of structures mentioned in step a contains 
one non-structure member for each name in the by-name-parts-list. 
Each member acquires dimensions from two sources: its own 
<deolaration>, and the <declaration> of every containing 
structure that is an array. 

4. Perform the assignment using the new aggregate-types according to the 
following rules for assignment. 
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I If evaluation of the <expression> does not yield an area, an <assignment 
statement> is executed as if it were replaced by a set of simple <asslgnment 
3tatement>s of the form: 

V = E 
T1 = V 

T2 = V 



Tn = V; 

where E is the <expression> and V is a variable whose aggregate type and data 
type are the aggregate type and data type of the <expression>. T1,T2,..,,Tn are 
the <target>s of the original <assignment statement> taken from left-to-right. 
If Tj is an arithmetic variable, a bit-string variable, or a pictured variable 
defined by a <numeric picture>, and E is a pictured value defined by a <numeric 
picture>, the value of E is encoded to an arithmetic value as described in 
Section 8. In that case, the data type of V is the data type of the encoded 
value. 

The rewritten <assignment 3tatement> is evaluated by performing the following 
steps in the indicated order: 

1. E is evaluated and its value is assigned to V. 

2. For j = 1,2,...,n: the value of V is promoted to a value that 
conforms to the aggregate type of Tj, the promoted value is converted 
to conform to the data type of Tj, and the promoted and converted 
value V is assigned to Tj. The value of V is unaffected by these 
promotions and conversions. Refer to Sections 8 and 9 for a 
discussion of conversions and promotions. 

If Tj is an aggregate character-string or bit-string variable, the scalar 
components of V are assigned ta the corresponding scalar components of Tj using 
the following rules for scalar string assignment. 

If Tj is a scalar pictured character-string variable, V is edited into Tj as 
described in paragraph 8.2.12. 

...* * J *— — wwMAu. , i4w««t/^«- v#wt ^*^ I wiicji ax^UKfl — isvi XIIQ fjt UJ.U — OUJ ±11^ val XdUXC, OilC 

following rules apply to the assignment. Let n be the length of V, and let m 
be the declared length of Tj. 

1. If Tj is varying and n<m, assign V to Tj and set the current length 
of Tj to n. 

2. If Tj is nonvarying and n<m, extend V to the right by concatenating 
m-n blanks (if Tj is character) or zeroes (if Tj is bit) and assign 
the extended value to Tj. 

3. If n>m, truncate the rightmost n-m characters or bits from V and 
assign the truncated value to T j . If Tj is varying set the current 
length of Tj to m. 

4. If n=m, assign V to Tj and if Tj is varying set the current length of 
Tj to m. 

If the <target> is a <string p3eudo>, the promoted and converted value i' 
assigned to the generation of storage identified by the <reference> as if it 
were the generation of storage of a nonvarying scalar string variable. 
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When one or more operands of a <pseudo-variable>, other than a <string pseudo>, 
IS an aggregate, the operands are promoted to the highest common aggregate type. 
The promoted and converted value V is assigned to the <pseudo-variable> by 
assigning the corresponding scalar components in an unspecified order as 
described in the following paragraphs: 

If the <target> is a <substr pseudo>, the values of the <expression>s are 
converted to fixed-point, binary, real, values of precision (24,0). Let i 
be the converted value of the first <expres3ion> and let j be the converted 
value of the second <expres3ion>. If the string variable identified by the 
<reference> is declared with the <varying attribute> let n be the current 
length of the string variable value; otherwise, let n be the evaluated 
string length extent associated with the variable's generation of storage. 

If the second <expres3ion> is omitted, let j be n-i+1 . If (0<i-1<j+i-1<n) 
is. not satisfied, the stringrange condition occurs. If detection of the 
condition is disabled, the program is in error and the results of continued 
execution are undefined. 

If the inequality is satisfied, the promoted and converted value is 
assigned to the string variable beginning with the ith character or bit and 
continuing through the (i+J-1)th character or bit if j-sO; otherwise if 
j=0, all characters or bits of the string are unmodified. All other 
characters or bits of the string are unmodified. 

If the <target> is an <unspec pseudo>, the generation of storage of the 
<reference> is treated as a scalar bit-string variable and the promoted and 
converted value V is assigned to it.. 

If the <target> is a <pageno pseudo>, the promoted and converted value V 
IS assigned to the pagenumber value of the file-state block identified by 
the file value- of the <reference> of the <pageno pseudo>. The file-state 
block must be open and. must have the <print attribute>. 

If the <targefc> is a <real pseudo>, the promoted and converted value V is 
assigned to the real part of the complex variable identified by the 
<reference> of. the <reai p3eudo>. 

If the <target> is an <imag paeudO, the promoted and converted value V is 
assigned to the imaginary part of the complex variable identified by the 
<reference> of the <imag pseudo>. 

If the <target> is an <onchar pseudo>, the promoted and converted value V 
IS assigned to the current generation of "onchar", which must not be the 
initial generation. Refer to paragraph 10 and paragraph 13.5. 

If the <target> is an <on3ource p3eudQ>, the promoted and converted value 
V 13 assigned to the current generation of "onsource", which must not be 
the initial generation. Refer to Section 10 and paragraph 13.5. 

Examples: 

A,B,C = 0; 

string(S) = "new value"; 

substr(X,i+5,K-5),W = YilZ; 

A = B+C; 

A = B+C, by name; 

D =r B+C^ by name; 

Note that the action of the previous two <statement>s is not necessarily 
the same as that of the following <3tatement>: 

A,D s B+C, by name; 
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12.3 The Begin Statement 

Syntax : 

I <begin statement> : : = [<pref ix>]beginC<options attrlbute>] ; 

Semantics: 

A <begtn statement> defines the beginning of a <begin block>. If executed by 
the flow of control, it causes a block activation of the <begin block>. Refer 
to Section 3 for a discussion of block activation and to Section 2 for the role 
of the <begin statement> in determining the structure of a <begin bloGk>, 

Because a <label prefix> on a <begin statement> produces a declaration of a 
label constant rather than a declaration of an entry constant, a <begin block> 
cannot be invoked by the execution of a <caH statement> or evaluation of a 

i<function reference>. The <options attribute> may only specify the keyword 
"non_quick" (see S.'t.SS, Opt ions) . 

Example: 

begin; 



12.4 The Call Statement 

Syntax: 

<call statement>: : = [<prefix> ]call<entry reference> 
C<argument list>]; 

<argument iist>::= ([<expres5ion>[ ,<expression>] . . . ] ) 

<entry reference> : : = <reference> 

Constraints: 

Evaluation of the <entry reference> must yield a scalar entry value. 

The <entry statement> or <procedure statement> identified by the value of the 
<entry reference> cannot have a <returns attribute>. 

The number of <expression>s in the <argument list> must be equal to the number 
of <identifier>s in the <parameter list> of the <entry statement> or <procedure 
statement> identified by the value of the <entry reference>. 

Semantics: 

A <call statement> is executed by evaluating the <entry reference> and all 
<expression>s in an undefined order. The entry identified by the value of the 
<entry reference> is invoked and each <expression> in the <argument list> is 
associated with the corresponding parameter in the <parameter list> of the 
invoked entry. Refer to paragraph 6.10 for a discussion of argument passing, 
and refer to Section 3 for a discussion of block activation. 

Examples: 

calL alpha(A,B,C); 

call betaO: 

call garaorar 
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^^•5 The Clo.-:!P StatPm^nh 
Syntax: 

<cl„„_.tate.e„t>::=^(<p„„.>icl„„<,n. cptio„> 

<file option>::= file(<reference>) 
Constraint: 

Evaluation of each <rerarence> .U3t yield a scalar file value. 

Semantics : 

unspic°f?iero?S!' F^r 'eIoh'<?iie'^otr'^^'t"^ "^ <"^^^- option>s in an 
identified by the value°of thf <refe?en?e""'lf'f il ^^"f-^^he f?ie-sta%e'SlocS 
aotjon fo. this <fiie option>.. othe^^ise^L^J f^lr^soA^ .1%.^^.% 

Example: 

close file(f), file(q); 

^2-6 The Pern a re Sha1-on^ o^<- 

Syntax: 

<declare statement>:;= [Xlabel Drefiv>l ;ho«i .. ,, 
<declaration list>- P'*"ix>J. .. {declare ,'dcl} 

<declaration list>::= <declaration component> " 
L , Xdeclaration component>] . . , 

<declaration conrponent>: i= [<level>3{<declared name> ' 
(<declaration list» }[<attribute set>] ' 

<declared name>::=^ <identifier> 
<attribute set>::= <attribute>.., 
<level>::= <decimal integer> 
Semantics: 

mi^'S^KrifedlrSL'ti'^SI"'"" ^ =l"l3^tio„ for ea=i> «.,clared na.e> and 1. 
Examples: 

declare (a bit, b fixed, c pointer > internal static; 
declare T S, 2 A, 2 B; 
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12.7 The Default Statement 



Syntax: 



<default statement>: :s [<label pref ix>] ... {default i dft} 
{systemlnonel <user defaults>}; 

<user defaults>::= (<predicate>) {error Kattribute 3et>[ , <attribute 3et>]...} 

<attribute set>::= <attribute>. . . 

<predicate>: : = <predicate one> I 
<predicate>J_<predicate one> 

<predicate one>::= <predicate two> I 
<predicate one>&<predicate two> 

<predicate two>::= <predicate three> ! '*<predicate two> 

<predicate three>::= (<predicate>) j <attribute keyword>i 
<range> 

<range>: : = range(*) I rangeC <identifier>) I 
range (< letter >: <letter>) 

<attribute keyword>::= <identifier> 

Semantics: 

Execution of a <default statement> causes control to pass to the <statement> 
following the <default statement>. 

A <default statement> supplies <attribute>s to declarations with incomplete 
<attribute set>s, and is fully described in Section 5. 

Example: 

default (variable 4 range(a)) character ( 1 ) ; 



12.8 The Delete Statement 

Syntax: 

<delete 3tatement>: := [<pref ix>]delete 
{<file option>[<key optional 
[<key option>]<file option>}; 

<file option>::= file(<reference>) 

<key option>::= key(<expression>) 

Constraints: 

Evaluation of the <reference> in the <file option> must yield a scalar file 
value. 

Evaluation of the <expression> in a <key option> must yield a scalar string or 
arithmetic value. 
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Semantics: 

indicated orderr°^^ ^^ executed by performing the following steps in the 

1. Evaluate the <file option> and the <key option> in an unspecified order. 
Let f denote the file-state block identified by the value of the <file 

cha^Ser-strinl:"" '' '"' <expre33ion>. in the <kay option> to a 

2. If f is closed, open it as described in paragraph 11.3. After f is opened, 

mL/^ ^r^..^^^. <update attribute>. If a <key option> is specified, f 
must have the <keyed attribute>. ' 

^" lLlr.^^^1 °?H°°^ i^ specified, set the currentrecord of f to designate the 
r-l^Si Identified by the converted value of the <key option>. If no such 
record exists in the data set attached to f, signal the key condition. 

nL^L ^^t^^ option> is specified and f has the <sequential attribute>, set 
nextrecord to designate the record following the new current record. If no 
next record exists, set nextrecord null. 

If no <key option> is specified, currentrecord must not be null. 
4. Delete the record designated by currentrecord and set currentrecord null. 
Examples : 

delete file(f) key(k) ; 

delete file(g); -~- 

12.9 The Do Statsm^n^. 



Syntax: 



<do 3tatement>::s C<prefix>]{<nonlterative do>l 
<iterative do>} 

<noniterative do>::= do; 

<iterative do>::s: {<do while >|<inultiple do>}; 

<do while>::= do while(<wfaile expression>) 

<wfalle expre3Sion>::= <expression> 

<multiple do>::= do<lndex>=<control>[ ,<oontrol> j . . . 

<index>: := <reference>!<pseudo-variable> 

<control>::= <single loop>|<repeat control>i 
<fortran control> 

<single loop>::=. <expre3aion> [while (<while expression>) ] 

<repeat Gontrol>::= <first>repeat<thereafter> 
[while(<wfaile expre33ion>) ] 

<fir3t> : : = <exprea3ion> 

<thereafter>::= <expres3ion> 
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<fortran control>::= <start>{to<limit>[by<inGrement>] | 

by<increment>[to<liinit>]} [while (<while expression>) ] 

<start>::= <expres3ion> 

<limit>::= <expre33ion> 

<increment> : : = <exppession> 

Constraints: 

Evaluation of all <expres3ion>s must yield scalar values. 

If an <index> is a <reference>, evaluation of the <reference> must yield a 
generation of storage of a scalar variable whose data type is other than area. 

If an <index> is a <pseudo-variable>, it must satisfy the constraints given in 
paragraph 12.2 for the <target> of an <assignment statement> and it must be a 
scalar. 

The data types of the values of the <single loop>, <first>, <thereafter> and 
<start> must be such that they can be assigned to the <index>. 

If a <fortran control> contains a <limit>, evaluation of the <index> or the 
<limit> cannot yield complex arithmetic values. 

The <index> of a <multiple do> containing one or more <fortran control>s must 
have a data type such that the <index> and each <increment> can form an 
<assignment statement> of the form: 

<index> = <index> ■»• <increment>; 

Control cannot transfer from a <statement> outside of an <iterative group> to a 
<statement> that is a <bloclc component> of an <iterative group>. Refer to 
Section 2 for the syntax of a <group>. 

Note that the scope of a <condition prefix> of a <do statement> is limited to 
the <do states^rit^ and do93 not include the ^'^rcu"^ ^^.a^aw k.. i-k^ ^j— 
statement>. 

Semantics: 

A <do statement> is executed by selecting the applicable case and performing the 
steps for that case in the indicated order. 

Case (The <do 3tatement> is a <noniterative do>) 

1. Transfer control to the <3tateinent> following the <do 3tatement>. 

2. Whenever control reaches the <end 3tatement> that ends the <group>, 
transfer control to the <statement> that follows it. 

Case (The <do statement > is a <do while >) 

1. Evaluate the <while expression> and convert its value to a bit-string. If 
all bits are 0, transfer control >,o the <3tatement> following the <end 
statement> that ends the <group>; otherwise, transfer control to the 
<statement> that "follows the <do statement>. 

2. Whenever control reaches the <end 3tatement> that ends the <group>, goto 
step 1 of this case. 
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Case (The <do 3tatement> is a <multiple do>) 

'• perfS^iLr'ti.";?,?! 'flTlil, "' »»1""»8 '"= applicable =a„ and 

?f?? m^«^ ^""^ .°°! .°'' '°°''® unevaluated <control>s remain, evalulte?he 
left-most unevaluated <control> bv aslmd-^m, i-ha \LZi L-, 

performing the steps for tSat case'L the'ind^fateford^?!""''" °"" ""' 
Case (The <control> is a <single loop>) 

1. Assign the^ value of the <exprea3ion> to the <index> by evaluating an 
<assignment statement> of the form: evaluating an 

<index> = <expres3ion> 

2. If the <control> contains a <while expre3sion>, evaluate th*. ^^^,i^^ 
expres3ion> and convert its value to a bit-string? If all biL ^r^n 
evaluate the next <control>; otherwise, perforS'the'next'step ofthii 

3. Transfer control to the <statement> following the <do statement>. 

'• eJ^Juali ?Srn^°itl?S;t?oll! ''''' ^^^^^^'^'^^^ ^^^^ -^^ ^^« <«-"P>. 
Case (The <control> is a <repeat Gontrol>) 
1. Let V be the actual text of <first>. 

^' itd ^ShnL"* ^ variable whose data type is the data type of <index> 
andeS? S«"«^ation - of storage is the generation ideJtifieSby 

^' forif ^ ""^^"^ ^° ^"'^^^ "^ executing an <as3ignment 3tatement> of the 
Index = V; . 

'^' ^iJ^t <''epea*.aonti*ol> contains a <while expression>. evaluate the 
<while expre33ion> and convert its value to a bit-string. If tn biEl 
Of thi^ die' ' °'''* <control>; otherwise, perforl'the nexJ Sep 

5. Transfer control to the <3tatement> following the <do statement>. 

6. Whenever control reaches the <end 3tatement> that ends the <group> 
iase. ^^^ ^^''^ °^ <thereafter>, and go to step 3 S this 

Case (The <control> is a <fortran control>) 

1. Perform the next three steps in an undefined order. 

2. If <limit> is given, evaluate it an let the value be L. 

'• ofheJ^JsirJet I'be ff '"' '"'^"^'^ ^' ^°^ '^' ^^« -^- ^- ^' 

'^^ ana ^5h!* "* * variable whose data type is the data type of <lndex> 
<index5?*' generation of storage is the generatioS identifSdSy 



^2~" AG94^ 



5. Assign the <start> to Index by executing an <assignment statenient> of 
the form: 

Index = <3tart>; 

.6. If the <fortran aontrol> does not contain a limit, let S be 1; 
otherwise, let S be if 12.0 and Index>L, or if KO and Index<L; 
otherwise, let S be 1 . 

7. If S is 0, evaluate the next <control>; otherwise, perform the next 
step of this case. 

8. If the <fortran control> contains a <while expres3ion>, evaluate the 
<while expression> and convert its value to a bit string. If all bits 
are 0, let W be 0; otherwise, let W be 1 . If the <fortran control> 
does not contain a <while expre3sion>, let W be 1. 

9. If W is 0, evaluate the next <control>j otherwise, transfer control to 
the <stateinent> following the <do 3tatement>. 

10. Whenever control reaches the <end 3tatement> that ends the <group>, 
assign the <index> a new value by executing an <assigninent statement> 
of the form I 

Index = Index + I; 

11. Go to step 6 of this case. 
Examples : 

do; ... end; 

do i = 1 to 10; ... end; 

do X = a,b,c,d; ... end; 

do X s 1 to -5 by -1 while(a<b); ... end; 

An D — Ua«s^ mamam^ f O .N.»MwV \ ,,U41./'n'"-...11\. I. 



12.10 The End Statement 

Syntax: 

<end statement>::t [<prefix>]end[<closure label>]; 

<closure label>::= <identifier> 
Constraint: 

The <cl03ure label> must be a <declared name> that appears in a <label prefix> 
of a preceding <do 3tatement>, <begin statenient>, or <procedure 3tatement>. 

Semantics i 

The effect of a <closure label> iff described in paragraph 2.4. 

An <end statement> denotes the end of a <group>, <begin block>, or <procedure> 
as described in Section 2. 

When the flow of control executes an <end stat8iaent> that denotes the end of a 
<prooedure>, the effaet is as if a <ret-urn statement > without a <return valus> 
had been executed. 
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J»Ln5r*o^ ?r ^l^^^'^'-i^e an Ond ,statement> that denotes the end o^' a <KrouD> 
depends on the <dQ state>nent> that heads the <group>. Refer to pa?agrSph la^g 

Examples: 

P: procedure: 



do while(x<y); 
end; /♦end of group*/ 
end P; 
12.11 The Entry Statement 



Syntax: 

<entry statement>::= <iabel prefix> .. .entry 

C([<parameter list>]) ]C<entry option>]...; 

<entry option>::= <returrTS. attrxbute> Kreducible attribute>| 
<irreducible attribute> ! <options attribute> 

<paraineter listX::^ <identifier>C ,<identifier>] . . . 
Constraints: 

Each <identifier> in the <parameter list> must identify a level-one variable 
declared m the immediately containing <block>. variable 

sLt^m•n^i ^?hf*f 1° ^^^. ^*"^'"y statement> by the execution of a <call 
statement>, the <entry statement> cannot have a <returns attribute>. 

rL2^^r°s "^w"^ ^t ^^® ^^"^'■y 3tatement> by the evaluation of a <function 
referenGe>, the <entry statement> must have a <returns attribute>. 

The number of <identifier>3 in the <parameter list> must equal the number of 

re?^^en«i>^'H»^'? 'D^ ^^rS""^"*^ 1"^^> Of the <call stateientfor <?5nction 
rererence> that invoiced this entry. 

arre::c[Jle'a?S:te>."""°' '''* '°'' ' <reducible attribute> and an 

JjJurn^^^J^^hT^^ containing a <returns attribute> must have exactly one 
<returns attribute> with a <returna descriptor>. 

Ho <label preflxX can contain a <prefir subscript>. 

The <optiona attributed may only specify the keyword "variable". 
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Semantics: 

An <entry statenient> denotes an entry to a <procedure>. When control is 
transferred to the entry by the evaluation of a <function reference> or the 
execution of a <call 3tatement>, a new block activation of the <procedure> 
occurs and the arguments of the <function reference> or <Gall statement> are 
associated with the parameters in the <parameter li3t>. Refer to paragraph 
3.3.1 for a discussion of block activation and refer to paragraph 6.10 for a 
description of arguments and parameters. 

If control reaches an <entry 3tatement> as a result of completing the execution 
of the preceding <statefflent>, control is transferred to the <statement> 
following the <entry 3tatement>. 

Because the <label prefix> of an <entry statement> results in the declaration of 
an entry constant rather than a label constant, a <goto statement> cannot 
transfer control to an <entry 3tatement>. 

Example: 

E: entry(A,B) return3(bit( 1 ) ) ; 

In this example, E is an entry whose invocation results in a bit-string value. 
The entry requires two arguments which are associated with the parameters A and 
B. 



12.12 The Format Statement 



Syntax: 



<fonBat statement>: := C<condition prefix>]... 

<label prefix>. . .format(<format specification li3t>); 

<format specification li3t>::= <format specification> 
C,<format specif ication> ].. . 

<format specif ication>: :s [<iteration factor>]< format item> I 

'vxw«»> cawxwii Aaw irfW t ^ N 'sA^^i iMav .#|#«w jbAAwtsvAWia xA.rfw^ / 

<iteration factor>::= <decimal integer> i (<expression>) 

<format item>::= <data format> !< control format> ! 
<remote fornat> 

<data format>::= <real format> !< complex format> ! 

<bit-strinff format> Kcharacter-string format> ! 
<picture format> 

<real formatX: := <fixed-point format> I < floating-point format> 

<fixed-point format>::r f(<w>[ ,<d>[ ,<k>]]) 

<floating-point format>::= e(<w>[ ,<d>[ ,<s>]]) 

<complex format>:;s c(< format part>[ ,<format part>]) 

<format part>::s <pieture fornat> I 

<fixed«polnt fonirat> |< floating-point foraat> 

<pieture' foniat>:is. p"<plcture>"* 

<ljlt^atrins. formatXrra <radix factor>[(<w>) J 

<radix factor>::s {b|br|b2!b3lb«l 
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<aharacter-string format>::= a[(<w>)] 



<w> 
<d> 
<k> 
<s> 



:= <expres3lon> 
:s <expre3sion> 
:=. <expression> 
:= <expression> 



<reigote format>::= p(<reference>) 

<control fopmat>::= <oolumn fopmat>|<x fonnat>l 
<page fonaat>|<skip fornat> Kline forraat> 

<colifflin fornat>::= {column! ool} {<expression>) 

<x format>::= x(<expres3ion>) 

<page fonnat>::s page 

<slcip format>::= skipC (<exppesaion>)] 

<line forinat>::= line(<expre3sion>) 
Constraints: 
Evaluation of all <expres3ion>s must yield scalar arithmetic or string values. 

fLJ^'l-l^!^''*""^' 3tatement> is controlling the execution of a <get 3tatenient> 
each <bit-3tring format> and each <oharacter-3tring forniat> must contain a <!)>/ 

value!'^"" *^ "*"* <referenoe> in a <re!note format> must yield a scalar format 

<remote*"°fTrm'at?r^"°^*^°" ^^^^^ ""'* contain at least one <data for«at> or 

Semantics: 

I!!*J^*!°7"* «tate"'ent> controls the execution of a <get statement> or <put statement> 
containing a <get edit> or <put edit>. Each time the <get statement" or 
^S fhf ^r""'"P fansmits a value to or from the data, stream it passes control 
to thfr < format specif icatiOTK list>. 

?»?i- ..'/"rf,"!!; ^"S^^ of a <format specification list> are evaluated from 
left-to-right. When control encounters a <format specification) containing an 
f<^!r^«?n^^\°^*°'"^' t"*, < iteration factor> is evaluated and converted to a 

<itera??on f,oJ^^r',/'^^'H ^"*!^*''' "'r,* <^°'-''^^ specif ioation> containing an 

<iteration factor) is used n times. If n < 0. the urogram is i" er-or ■"■ 

n = 0, the <format specification) is ignored, if the ^format specification) is 
a parenthesized <format specification list), the entire list is Ssed n "me3. 

h«fcII.i,^"'fh.''Tl7^ ^l"ft to a <fornat specification list) all < format item) s 
^tl^t^ the last used <forma* item) and the next <data format) are evaluated, 
then the next^<data format) item is evaluated and used to control the conversion 
of the value being transmitted to or from the data stream. 

If control reaches a <remote format), the <reference) is evaluated to yield a 
fS-^f?*-^!^"^' I^* </0'-™at specification list) contained in the < format statement) 
identified by the format, value is invoiced as if it were a <procedure). When 
control returns from the <format statement), the next < format item) is evaluated. 

If control reaches the end of the outermost <format specification list) of a 
<get statement) or <put statement) and one or more values remain to be transmitted 

<?orm'rt ,%°cifi«tion'u3t>r""' '""'"' ""'" '° *''" "''^""^"^ °' *''« 
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If control reaches the end of the outermost <foriaat specification Iist> in a 

<forraat statement) and one or more values remain to be transmitted to or from 

the data strean, control returns to the <reinote format) that invoked the 
<forTi)at statement). 

If control reaches a <format statement) as a result of normal execution of the 
preceding <3tatement), control is transferred to the <statement> following the 
< format statement). 

Because the <labea. prefix) on a <format statement) is declared as a format constant, 
it is not possible to transfer control to a <fonBat statement) by the execution 
of a <goto statement). 

Throughout the following discussion of the semantics of <format itera)s, file is 
understood to be the file-state block identified by the file value of the <refe?eWce> 
of the <get statement) or <put statement) being controlled by the <format statement). 

Llnesize, pageslze, coluonposltion, pagenumber and linenumber designate values 
in the file. Advancing an input data stream or placing characters in an output 
data stream affect these values as described in Section 11. 

If the <get statement) or <put statement) contains a <string option) instead of 
a <flle option), data stream is understood to be the string value identified by 
the <string option); otherwise, it is understood to be the data set identified 
by the title of the file. 

If the <get statement) or <put statement) contains a <string option) it is an 
error to attempt to evaluate a <page format), <skip format), or Uine format). 

A <column format) is evaluated by evaluating its <expression> and converting the 
value of the <expression> to a fixed-point, binary, real, integer, K; K must be 
greater than zero. The following cases describe the effects of the <column 
format) on the data stream: 

If K < oolumnposition and the file has the <input attribute), the data 
stream is advanced to the next linemark. It is then advanced K-1 characters 
and oolumnposition is set to K. If a linemark is encountered before the 
Kth character, the stream is positioned to the character following this 
linemark and oolumnposition is set to one. 

If K < oolumnposition and the file has the <output attribute), a linemark 
and K-1 blanks are placed into the data stream and coluainposition is set to 

If K >^ oolumnposition and the file has the <input attribute), K-columnposition 
characters are ignored and the oolumnposition is set to K. If a linemark 
is encountered before the Kth character, the stream is positioned to the 
character following the linemark and oolumnposition is set to one. 

If K > columnpoaition and K ) linesize and the file has the <output attribute), 
a linemark is placed into the data stream and columnposltion is set to one. 

If K >^ oolumnposition and K <_ linesize and the file has the <output attribute), 
K-columnposltion blanks are placed into the data stream and oolumnposition 
is set to K. 

An <x format) is evaluated by evaluating its <expression) and converting the 
value of the <expression) to a fixed-point, binary, real, integer, K; K must be 
greater than or equal to zero. If the data stream is being input, the next K 
characters of the stream are ignored. If the end of the data stream is encountered 
on the first character, signal the endfile condition. If the end of the data 
stream is encountered after the first character, signal the error condition. If 
the data stream is being output, K blanks are placed into the stream. The 
effect of linemarks in the input or linesize on the output is that described for 
<data format) s in this section. 
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A < page format> is evaluated by placing a pagemark into the data stream, setting 
tne llnenumber and ooluanposition to one, and adding one to the pagenumber. The 
program is in error if the file does not contain the <print attribute). 

A <3kip format> is evaluated by evaluating its <expression> and converting the 
value of the <expre3sion> to a fixed.po.int, binary, real, Integer, K. If the 
J^l'^Vt^s"\^^ omitted, let K be 1. If the file does not have the <print 
attribute), K must be greater than zero; otherwise, it must be nonnegative. 

If the file contains the <input attribute), advance the data stream until K 
linemarks have been encountered. The stream is positioned to the character 
following the Kth Imemark and the oolumnposition set to one. If the end of the 
data stream is encountered during the scan, signal the endfile condition. 

^L!''?^^^*.''^*.'''* <output attribute) and linenumber>pagesize, place K linemarks 
inbO zne aata stream. 

If-/^"* ^\^^ .^%'. '^*'* <output attribute) and page3ize>iinenumber , place 
ain(K,page3iz6*1-linenumber) linemarks into the data stream. If 
K)pagesize+1-linenumber, signal the endpage condition. In all cases of output, 
eacn linemark sets columnposition to one and adds one to linenumber. 

If KsO, an ASCII carriage-return character is placed into the data stream and 
oolumnposition is set to one. The effect is to reposition the output stream 
back to the beginning of the current line such that additional output will 
overprint, but not replace, data already on the line. Kote that overprinting 
oont ""l-^^ °°°"'" ^^ ^^^ device on which the stream is printed obeys the carriage-return 

A <line format) is evaluated by evaluating its <expression> and converting the 
value of the <expression> to a fixed-point, binary, real, integer, K. If K < 
the program IS- m error. If K = linenumber and columnposition = 1, nothing is 
placed in the data stream and no file control values are changed. If K > 
pagesize or K < linenumber, pagesize-linenumber+Uineraarks are written and "the 
endpage condition is signalled, unless linenumber ) pagesize*1. In the latter 
case, a pagemark is written into the data stream." If K > linenumber and K < 
pagesize, K-lmenumber linemarks are placed into the data stream. The linenumber 
is set^ to K and the columnposition is set to one. The program is in error if 
the file does not contain the <print attribute). 

A <data format) is evaluated by evaluating its <expression)s and converting 
their values to fixed-point, binary, real, values of precision (17,0). If the 
data stream is being inputs let w be the converted value of <w) or the number of 
characters described by the <pioture format). The next w characters of the data 
-fc,. -=__,_ — ...e. -sw a>,>.uivjinB WW (.He ruxea for lonnac controlled input conversion 
given in paragraph 3.2.11. If the end of the data stream is encountered on the I 
VVl ^^iaracter of the w characters, signal the endfile condition. If the end i 
of the data stream is encountered after the first character, signal the error I 
condition. The converted value is then assigned to the current target of the I 
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If the data stream is being output, the current output value is evaluated and 
converted according to the rules for format controlled output conversion given 
in paragraph 8.2.11. The converted value is then placed into the data stream. 

If during input, the field of characters to be converted contains one or more 
linemarks, the linemarks are ignored, except that each linemark causes the 
columnposition to be set to one. 

If during output, the converted value does not fit onto the current line, let w 
;? tne^punber of characters to be output and let n be linesize-columnposition+l . 
The leftmost n characters are placed into the data stream, followed by a linemark. 
Let m be the number of characters remaining to be output, (w-n). If m < linesize 
the remaining characters are placed into the data stream and columnposition is 
set to m+1. If m > linesize, let n be linesize. n characters are placed into 
the data stream followed by a linemark, m is set to m-n and the process is 
repeated until m < linesize. The remaining characters are output as described 
above for m < linesize. 



3/81 12-17 



AG94E 



Examples: 

get ecllt(a,b,o)<p(F)); 

F": fomiat<e(1«,2),FC10),a(5)); 

put edlt(x,y,z)(r(F1)); 

F1: forTsat(page,a,skip(3),2 e(1«,l)); 

12.13 The Free Statement 

Syntax: 

<fpee stateBent>::= C<prefix>]fpee<freelng>C ,<freeing>]. . . ; 

<freeing>::= <free pefepence>C<io option>] 

<in optlon>::= in(<referenoe>) 

<free reference>: := <referenoe> 
Constraints: 

ora"fca?ar°area'var!able!' '" '" ''" °''"^"' """" ^'^" ' generation of storage 

fri"h=i-H ^5 "''^ "^^.71 reference> must yield a level-one generation of storage 
or a based or controlled variable. 

3^^^Ki\°''^^°r^ ?u'' "« a'-itted if the <free reference) identifies a controlled 
variable or if the generation of storage yielded by evaluation of the <free 
reference) is allocated in "system storage". 

lllr'itl'^i!^^L''%V^''\'.^^^^J'^^ ^^" option) be present if the generation of 
storage is not allocated m "system storage", but Hultics PL/I does not require 
. the <in option) in this case. 

li ^u* ^A" °P'=i<'"> i3 present, the generation of storage yielded by evaluation 
Of the <free reference) must be - allocated in the area identified by the <in 
option). 

Semantics; 

The <free referenoe)s and <in option>s of all <freeing)s are evaluated from 
lei t-to— right . 

Freeing a generation of storage makes any values represented in it undefined. A 
progra* that attempts to access a freed generation is in error. 

Freeing a generation of a controlled variable makes the previously allocated 
generation the current generation. Refer to Section 4 for a discussion of storane 
classes and allocation. " 

Examples: 

free x; 

free y in{A); 
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12.-14 The Get Statement 

Syntax: 

<get statement>::= C<prefix>]get {<file get>|<string get>}'; 
<file get>::s <file get option>... 

<file get option>::= <file option>i<oopy option>i 
<3kip option>!<get list 3pecification> 

<file option>::= file(<referenGe>) 

<copy option>::= copy[(<reference>) ] 

<skip option>::= 3kip[(<expression>) ] 

<get list specif ication>::= <get list>|<get data>|<get edit> 

<get list>::= li3t(<get item>[,<get item>]...) 

<get item>::= <target>| (<get item>C,<get item>] . . .<list do>) 

<list do>::= <multiple do> 

<target> : : = <ref erence> I <pseudo-variable> 

<get data>::= data[(<get data ref>[,<get data ref >]...)] 

<get data ref>::s, <simple referenced 
<structure qualified reference> 

<get edit>::= edit<get edit pair>... 

<get edit pair>::= (<get itein>[,<get item>]...) 
(<foriiiat specification li3t>T 

<strinff get>::= <string get option>... 

<string get option>::= <3tring option>|<copy option>| 
<get list speeifiaation> 

<string option>::= string (<expression>) 

Constraints: 

Evaluation of a <get item> or <get data ref> must yield a generation of storage 
of an arithmetic or string variable. 

Evaluation of the <reference> in the <file option> or <copy option> must yield a 
scalar file value. 

Evaluation of the <3tring option> and <3kip option> must yield scalar arithmetic 
or string values. 

A <file get> must contain either a <skip option> or a <get list specif ioation>. 
or both. 

A <file get> cannot contain more than one <file option>, one <copy option>, one 
<skip option> and one <get list specif ication>. 

A <string get> must have exactly one <strins option> and exactly one <get list 
specification> and may have one <copy^ option>. 

A <structure qualified reference> in a <get data ref> cannot contain any 
<3Ubscript>3. 
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A <get data ref> cannot identify a based variable, unless the variable was 
declared with a <based attribute> that contained a <locator qualifier>. 

A <get data ref> cannot identify a defined variable whose <base reference> 
contains one or more <isub>s or asterisks. 

If the <expression> in the <string option> is a <reference> to a variable, 
execution of the <get 3tatement> cannot allocate, free or assign a value to the 
generation of storage identified by the <reference>. 

Note that if neither a <file option> nor a <3tring option> is given in a <get 
statement>, the compiler supplies a <file option> of the form: 

file(sysin) 

Also note that a <copy option> with no <reference> is given "sysprint" as its 
<reference>. Refer to Section 5 for a discussion of the effect of these 
compiler supplied options on the establishment of declarations. 

Semantics: 

If the <get 3tatement> contains a <file option>, it is executed by performing 
the following steps in the indicated order: 

1. Evaluate the <file option> and any <3kip option> or <copy option> in an 
unspecified order. Let f denote the file-state block identified by the 
value of the <file option>. Let cf denote the file-state block identified 
by the value of the <copy option>. 

Convert the value of the <skip option> to a fixed-point, binary, real, 
integer, K. If the <expre33ion> is omitted from the <3kip option>, let K 
be one. 

2. If f is closed, open it as described in paragraph 11-3. After f is open, 
it must have the <stream attribute> and <input attribute>. 

3. If cf is closed, open it as described in paragraph 11.3- After of is open, 
it must have the <stream attribute> and <output attribute>. 

4. If the <skip optidn> is present, evaluate it as described for a <3kip 
format> in paragraph 12.12. 

5. A <get list> is evaluated by performing the following steps in the 
indicated order: 

5a. Establish the next list item as described in step 8. If the list item 
is a scalar, consider it to be the next target. If the list item is 
an aggregate, consider each of its scalar components to be a target 
taking the elements of arrays in row-major order and the members of 
structures in left-to-right order. For each scalar target, T, perform 
steps 5b through 5d. 

5b. Scan the data stream to find the next non<space>. If the end of the 
data stream is encountered, signal the endfile condition. 

5c. Select the applicable case: 

Case (the current character is a comma) 

If the last operation on this file was the execution of a <get 
list> and its scan was stopped by a <space>, go to step 5b; 
otherwise, ignore this target. 
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Case (the current character is not a comma or a quote) 

Scan to find the next <space> or comma, and let S be the string 
of all characters scanned, except the <space> or comma that 
stopped the scan. If the end of the data stream is encountered 
during the scan, stop the scan but do not signal the endfile or 
error condition. 

Assign S to the target, T. 

Case (the current character is a quote) 

Scan to find the next single quote, and let SI be the string of 
all characters scanned, except linemarks. If the end of the data 
stream is encountered during the scan, signal the error 
condition. 

Scan to find the next <space> or comma, and let S2 be the string 
of all characters scanned, except the <space> or comma that 
stopped the scan. If the end of the data stream is encountered 
during the scan, stop the scan but do not signal the endfile or 
error condition.. 

Let S be SI ! !S2. 

Select the applicable case: 

Case (S does not satisfy the syntax for <valid field>) 

Raise the conversion condition. 

Case (S satisfies the syntax for < valid bit-field>) 

Let S' be the string S with the trailing <radix factor> 
removed, the leading and trailing single quote removed, and 
each contained double quote replaced by a single quote. Let 
n be the length of S' , 

ir the <radix factor> is "b", let m be 1 ; otherwise, let m 
be the same as the number in the <radix factor>. 

If S' is a null character-string, convert it to a null 
bit-string, R; otherwise, convert it to R, where R is a 
bit-string of length m*n. For • k=1 ,2 , . . . ,n, bits 
k*ni-m+-1 , . . . , k*m are obtained from the table in paragraph 
2.6.2.1. If the kth character of S' is invalid, the 
conversion condition occurs. 

Assign the bit-string R to the target T. 



7/78 12-21 AG94B 



ihis page intentionally left blank 



7/78 



Case (S satisfies the syntax for <valid character-field>) 

Let S' be the string S with the leading and trailing single 
quotes^ removed , and each contained double quote replaced bv 
a single quote. r -j 

Assign S' to the target, T. 

<valid field>::= <vaiid bit-field>| 
<valid oharaoter-field> 

<vaXid bit-field>::= <valid character-fieldXradix factor> 

<radix factor>::s {bi bl ib2!b3 jb4} 

<valid character-field>::s ''<eharacter>. . ." 

<character>::s ""| 

Any ASCII character except quote 

<spaee>::= ASCII blank! ASCII tabllinemark 

^'*' ffifLi'n^^h!".,^' complete, the current character is the character 
following the <3paoe> or comma, unless the end of the data stream has 

detLt?/l1';'i\.'" "I* ^^".^'" ="^' ^*'« *"<* °f the st"am will be 
^^^H?vf *"*" '"* next scan is performed. The conversion or stringsize 

iZ'ii:" n!k;\':\\j;,z ro!" =°"''^"^°" °'- "^^^---^ perform"id"b^^ 
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^' *ordl'/**^^ " evaluated be performing the following steps in the indicated 

5a. Scan to the the next non<spaoe>. If the end of the data stream is 
encountered during the scan, signal the endfile condition. If the 
current character is a oomma, repeat the step. If the current character 
is a semicolon, transfer control to the <statement> following the <get 
statement>. If the current character is an equals, let H be a null 

sHrinff ana an h_i-% «^An Ky« 



6b. 



6c. 



string and go to step 6c 

Scan to find the next equals or semicolon. If the end of the data 
stream is encountered during the scan, signal the error condition. If 
the scan was stopped by a semicolon, transfer control to the <3tatement> 
following the <get statement>; otherwise, let N be the string of all 
Characters scanned, except linemarks and the equals that stopped the 
scan. ^'^ 

Scan to find the next non<space>. If the end of the data stream is 
encountered during the scan, signal the error condition. Let S3 be 
the string of all characters scanned, except linemarks. 

Modify the scanning rules described in step 5c so that where they scan 
to find a comma or <spaee>, they now scan to find a semicolon, comma, 
or <space>. Scan using the modified step 5g to obtain a string S. Do 
not perform the assignments to T described in step 5c. 

5d. If M does not satisfy the syntax for <3tream referenoe>, or if K 
cannot be resolved such that it identifies a variable whose scope of 
declaration includes the <get statement), or if N is improperly 
subscripted, signal the name condition with (N| I "="| |S3 1 |S) as the 
value of the "onfield" built-in function. Refer to paragraph 10.4 and 
13.5 H may contain <3paoe>s between any of the <lexeme>s of <stream 
referenee>, just as if <stream reference) were written in the text of 
an <external procedure). 

<stream reference): :s [<identifier)[<sub3>]. ] . . . 
< identifier) [<3ub3>] 

<subs)::s ( [+|-]<decimal integer) 
[,C+l-]<decimal integer)]...) 

6e. Let T be the variable identified by H. Assign S to T using the appropriate 
asslgmgent rule from step 5c. 

If the last character scanned was a semicolon, transfer control to the 
<statefflent> following the <get statement); otherwise, go to step 6a. 

A <get edit) is evaluated be performing the following: 

7a. For each <get edit pair) taken from left-to-right, perform steps 7b 
ana (c, wnen the last <get edit pair) has been evaluated, transfer 
control to the <statement> following the <get statement). 

7b. Establish the next list item as as described in step 8. If the list 
item is a scalar, consider it to be the next target. If the list item 
is an aggregate, consider each of its scalar components to be a target 
taking the elements of arrays in row-major order and the members of 
structures in left-to-right order. 

7e. For each target, pass control to the to the <format specification 
list). The evaluation of the <format specification list) causes the 
data stream to be scanned and a value assigned to the target. Refer 
to paragraph 12.12 for a description of the evaluation of a <format 
specification list). 
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^' iL^r^^'f^^^ ^ ^P* ^^^*^ °'' ^^^^ ®^^*> ^° ®"^i° the next list item perform 
the following steps in the indicated order: periorm 

aa. If there is no current <get itera>, let the current <get item> be the 
leftmost <get item>; otherwise, let the current <get item> be thl next 

<ltli-.tl^fs% ^V •"° '^^"^/set item>s remain, transfer control to the 
<3tatement> following the <get 3tatement>. 

6b. If the current <get item> is a <target>, evaluate the <target> as if 
xt were the <target> of an <a3signment 3tatement> Ind make the 
evaluated <target> the current list item. 



8g, 



If the current <get item> is a parenthesized list of <get item>s 
orthe^fSrm? ^°^' <=°°^^^«'- ^^« ^''^'■^^ construct to be fdo group 

<multiple doXget item>[,<get item>3 . . .end; 

Evaluate the do group as if it were a true <group>. Each <Ket itam> 
13 evaluated by performing step 8b or 8c. When control realhes the 
end of the <group>, evaluate the next <get item>. i-eacnes the 

Each ASCII tab character encountered during scanning of the data stream =.,.i-=< 
columnposition to the next higher value in the sequence? Vl, 2^,31, . 

?f one!"^""^'"'' «°"*^°*«^«** <i"^"S scanning of the data stream seta columnposition 

ignored?^"^""^ °'' carriage return character appears: in an input stream, it is 

During execution of a <get 3tatement> containing a <copy option>, all characters 
and linemarks in the input data stream, from the first to the last character or 
linemark scanned, are^ placed into the copy data stream attached to cf 

to-lin^mrksT Un«L;: linenllSberretc. '"""^ ^°" ''"''^^"" " ""°*^ "^^^ '^^^^^"^ 
the f5?lowlngf*^''^°^°''' contains a <string option>, it is executed by performing 

Evaluate the <string option> and the <oopy option> in an unsoeeifiprf ^r-d^,. 
Convert the value of the <string option> to I cbSracLr-striSg an5 L? th^ 
character-string value be the data stream. For purposelof fvaluatiL tSe 
in!tiai'va!Srof oSl'""'' °°°'"''' columnposition'to' b^ Lfin'eJ^'SuS 'an 

JintinnC "f^ '^^^^ file-State block identified by the value of the <codv 
option>. If cf is closed, open it as described in paragraph IT 3 After 

aJtriSute?!" '' "'"^' '^^* ^""^ '"'^^^" attriEutef "iSd thl" <oifput 

Evaluate the <get list specification> as described in steps 5, 6 or 7. If 
conditiln^f ^-^ V?"h'*. signal the name or endfile conditions, the error 
o? "iSf?2iHn ?^8°aile<l Instead of the name or endfile condition. The value 

?he nameloLifiSn! "' ""'" ''' ^"°'" °'''''"'°'^ '' ''^^'^'^ ^-^-<1 «^ 

Example : 

get flle(Input) skip listCA.B.C, (X(i) do t = 1 to 10), D); 

f^^fU^i2° °^ !4u <3tatement> causes the data stream identified by "Input •» to be 
tnJS- Jhe'SLf ^«f f linemark; three values are obtained and aLiSeS to^A, 1 
XM) Xfl? ?fin?^ i? «^fi^ated and ten values are obtained and assigned to 
xn),X(2),...,X(lO); finally a value la obtained and assigned to D. 
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Example: 

get string(S) edit(A) (p"zzzv99'' ) ; 

Execution of this <3tatement> evaluates S and converts it to a character-string. 
The converted value is then encoded to an arithmetic value under control of the 
<picture>, and the encoded value is then. assigned to A. 

Example : 

get file(F) data; 

Execution of this <statement> advances the data stream identified by F and may 
assign values to any variable whose scope of declaration includes this 
<statement>. The assignment only occurs if the data stream contains "X = V" 
where X is a reference to the variable and V is a constant. This <statement> is 
extremely expensive because it causes a large symbol table to be included into 
the compiled program. Use of the <statement> is a poor programming practice 
because one cannot tell by reading the <statement> what effect its execution has 
on the state of the executing program. 

Example : 

get data(X,I,Z); 

Execution of this <3tatement> advances the data stream identified by "sysin" and 
may assign values to X,Y, or Z, or any combination of X, Y and Z. This 
<statement> is not quite as expensive or dangerous as the previous example, but 
it is to be avoided if "get list(X,Y,Z)" could be used instead. 



12.15 The Goto Statement 

Syntax: 

<goto 3tatement>::= [<prefix>]{gcto!go to}<reference>: 
Constraint: 

Evaluation of the <reference> must yield a scalar label value whose block 
activation pointer identifies the current block activation record or the 

of a dynamic predecessor of the current block activation. 
3.3.1 for a discussion of block activation. 



activation record 
Refer to paragraph 



Semantics : 

If the label value identifies a <statement> within the current block activation, 
control transfers to that <statement>. 

If the label value identifies a <statement> within a block activation that is a 
dynamic predecessor of the current block activation, the current block 
activation and all predecessors up to, but not including the block activation 
identified by the label value are terminated. The block activation identified 
by the label value then becomes the current block activation and control 
transfers to the <statemrit> identified by the label value. 

If the block activation identified by the label value is no longer active, the 
program is in error and the results of continued execution are undefined. 

Example : 

goto L(2) ;: 
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12.16 The If 5;i-.ah>. n f^n^-. 



Syntax: 



<if statement>::= [<prefix>]if<expression><then clause> 
L<else clause>] 

<then clause>::= then<executable unit> 

<eise clause>::- else<exeoutable unit> 

<executable unit>::s <inciependent 3tatement>|<KrouD> I 
<begin block> 

Constraints: 

Evaluation of the <expression> must yield a soalar arithmetic or string value. 

inafunrff, 5™T^f °^ .1^^ <condition prefix> of an <if statement> does not 
<SrefS> ^^^^^'^^^bl^ "°it>s. Each <executable unit> may have its own 

Semantics: 

An <if statement> is executed by performing the following: Evaluate the 
<expression> and convert its value to a bit-string B. If any bit of B is a 1 
trlllll '?^ ^^^^^ °^^""'' otherwise, executi the <eJse clausf> if U Is 
smeSe,;t> °"^^' ^"^ °°'''"'°^ ^° ""^^ <statement> following the Mf 

an5^•elS-Kvwo^H*" r:!^ri^° °?^ show, the pairwise- relationship between "then" 
clausl>! ''^y*^'^*^^- A° <el3e clause> is always paired with the preceding <then 

Examples : 

if X < I 

then if a=b 

then return; 
else go to L; 

]"2 ^«^K f*^"''^®' J^®.5®^^® clau3e> belongs to the second <if 3tatement>. If it 
IS to belong to the first <if statements, it must be written ^g*''^"'*"^^- ^^ 

if X < I 

then if a=b 

then return; 
else; 
else go to L; 

S'prSe'Se'dlsJref effect!' ''" <-«°"table unit> of the first <else clause> 



"i^-M The Locate Statsr^^n^ 



Syntax: 



<locate statement>::= [<prefix>]locate<allocation referenee> 
<locate option>...; 

<allocation references: :s <identifier> 

<locate. option>::= <file optionSKset option>! 
<keyfrom options 
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<file option>::= file(<referenoe>) 
<set option>::= 3et(<reference>) 
<keyfrom option>::= keyfroin(<expression>) 

Constraints: 

No <locate option> may appear more than once and the <file optlon> must be 
present. 

Evaluation of the <reference> in the <file option> must yield a scalar file 
value. 

Evaluation of the <reference> in the <set option> must yield a generation of 
storage of a scalar pointer variable. 

Evaluation of the <keyfrom option> must yield a scalar arithmetic or string 
value. 

The <allocation reference> must identify a level-one based variable. 

If the <3et optionX is omitted, the variable identified by the <allocation 
reference> must have been declared with a <based attribute> that contained a 
<locator qualifier>. That <loGator qualifier> is taken as the <set option> and 
must satisfy the constraints of the <3et option>. 

Semantics: 

A <locate 3tatement> is executed by performing the following steps in the 
indicated order: 

1 . Evaluate the <locate opti:on>3 and the <allocation ref erence> in an 
unspecified order. 

Let f denote the file-state block identified by the value of the <file 
option>. 

If f is not open, open it as described in paragrap'h 11. 3. After f is 
opened, it must have the <record attribute> and either the <output 
attribute> or the <update attribute>. If the <keyfrom option> was 
specified, f must have the <keyed attribute>, and if f has the <keyed 
attribute> the <keyfrom option> must be specified. 

2. If there is an output buffer associated with f, create a new record in the 
data set and write the content of the buffer as the value of the new 
record. If there is an evaluated key associated with the buffer, it is 
associated with the new record as its key. If any record in the data set 
already has this key, signal the key condition. If currentrecord is not 
null, and f has both the <keyed attribute> and the <sequential attribute>, 
and the key is not greater than the key of the record designated by 
currentrecord, signal the key condition. 

If f has the <keyed attribute>, create the new record in its proper 
position within the data set as determined by its key; otherwise, append 
the new record to the end of the data set. After the record is written, 
free the buffer and set currentrecord to designate the new record. 

3. Allocate a generation of storage for the variable identified by the 
<allocation reference> by executing an <allocate statement> of the form: 

allocate x 3et(p); 

where x is the variable identified by the <allocation reference > and p is 
the pointer given in the <set option>. Associate this generation of storage 
with f as its output buffer. Only the execution of another output 
operation on f or the closing of f causes the buffer to be written into the 
data set as a new record. 
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'* li f i'k^* '^*l* ^^"JV^ attribute), convert the value of the <keyfroB option) 
to a charaoter-string and associate it «ith the output buffer as its key! 



Examples: 



locate X 3et(p) file(f): 

P->X = 7; 

locate X set(p) file(f) : 

P->X = 10; 

close file(f); 



This example writes two records into the data set attached to f. The first 
,m??f^".l ^ ^ ^"f ,';*'* '*"""'* contains a 10. The first record is not written 
until the second <loeate statement) is executed and the second record is noS 
written until the <olose statement) is executed. «cona reoora is not 



12.18 The Hull Statement 

Syntax : 

<null statement): := [<prefix)]; 
Semantics: 



Execution of a <null statement) has no effect on the program. It is used Drimariiv 

action!""''*"'*"* "^^ °^ """"« "" '*'*' =lause) ^r^on unit) that 'takes i^ 

^°?»h-?^Lf,.i*?!^ *fi"f identifying a <null statement) does not compare equal to 
a label value identifying any other <3tatement). 



Examples: 

on endpage(f); 

if a, = b 

then if" o s b 

then go to LI; 

else; 
else go to L2r 



12.19 The On Statement 



Syntax: 

<on statement>t:s [<prefix)]on<condition list>[3nap]<on unit) I 

<on unit>::= <independent statement),' <begin block) I system; 

<condition list)::s <condition name)C ,<oondition name)]... I 

Each <eonditlon name) is one of the <condition name>s given in paragraph 10.4. 

Constraints: 

<L^!ta'i'li;,lnA°"^A^'^"**°^*^r <infeP«ndent statement) cannot be an <if statement), 
<on statement), <revert statement), or <return statement). 

An <on unit) consisting of a <begin block) cannot have a <return statement) 

^SI!*^J"!^ ".^*i?f" JL*"* "^i***^" block), unless it is contained within a <procedure) 
contained within the <begin block). h' "'-=uurB^ 
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aabel^preflxr "*^*'"*'"* ='' ^''^^in block> used as an <on unit> cannot have a 

?hl*^^^^* ?!?s "'"'* °^ ^ <=ondition ppefix> on an <on 3tatenient> does not include 
wile Non unic^* 

Semantics: 

The <on unit> is effectively translated into a <prooedure> of the form: 
P: procedure; <on unit> end; 

<!!^nrfi^J^ ^^"»^^''"* "a»e created by the compiler. The <oondition name>3 in the 
identiff^ hv Vh-^? *If*r'*^ ^" ^" unspecified order. For each condition 
<DrMi5„^^ p' .1 K <=ondition list>, execution of an <on 3tatei»ent> causes the 
<procedure> P to be established as the current <on unlt> for. this condition. If 
^hi J^ °^ activation has previously established an <on unit> for this condition, 
the previously established <on unit> is reverted. "nmtion. 

When the condition identified by the <condition name> is signalled, the most 
IrV.^r.l^^ "tablished <on unit> for that condition is executed" T^e' signal!* 
effectively a call to the <prooedure> P. 

I H Vl* keyword "snap- is given, a Multics debugging comniand is called just prior 
\lL^^Mll°Ji^^°" ,"/ the <on unit>. In an interactive process, the Multics 
I ?C^!i?!5 = i^ ''!^-'-!w* .^" ^" absentee process, the Hultlos trace stack command 
I is called. Refer to the Multics PL/I Reference Manual. 

It 51?f/°" """^ consists of the keyword "system", the default <on unit> for the 
condition is considered to be the <on unit> of this <3tatement>. 

Refer to Section 10 for a full discussion of conditions, signals and <on unit>3. 
Example: 

on endpageCf) put page list("Page Header"); 

12.20 The Open Statement 
Syntax: 

<open 3tateBent>::s [<preflx>]open<opening>[ ,<opening>]. . . ; 
<openlng>::= <opening option>... 

<openlng option>::s <file option> Ktitle optlon>| 
<linesize option> Kpageslze option>| 
<opening attrlbute> 

<opening attribute): := <input attribute) Koutput attribute) I 
<update attribute) Krecord attribute) I 
<stream attribute) j <print attribute)! 
<dlreet attribute) Ksequential attribute)! 
<keyed attribute) ! <environment attribute) 

<file option): :s fUe{<refepence)) 

<title option): := title(<exppesslon)) 

<lineslze option): := line3ize{<expre3sion) ) 

<pagesize option) ::s pageslze(<expreasion)) 

Constraints; 

value**^^**" °^ **** <referenoe> in each <file option) must yield a scalar file 
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Evaluation of the <expression> in a <pagesize option>, <linesize optlon>, or 
<title option> must yield a scalar arithmetic or string value. 

Each <opening> can contain only one <file option>, one <tifle option>, one 
<pagesi2e option> and one <linesize option>. It may contain any number of 
<opening attribute>s. 

Each <opening> must contain a <file option>. 

Semantics: 

An <open statement> is executed by evaluating its <opening>s from left-to-'-i" »hf 
For each <opening> perform the following steps in the indicated order: °' 

1. Evaluate the <file option> and any <title option>, <linesi2e option> and 
<pagesize option> in an unspecified order. 

Let f denote the file-state block identified by the value of the <file 
option> , 

If a <title option> is specified, convert its value to a character-string. 

If a <pagesi2e option> or <linesize Qption> is specified, convert their 
values to fixed-point, binary, real values of precision (17,0). 

2. If f is already open, perform no further action for this <opening>- 
otherwise, open f as described in paragraph 11,3. ' 

Examples: 

open file(f) pagesize(20) linesize(80) 

title("vfile_ >udd>database>myfile") ; 

open f ile(messages) keyed upidate record; 

open file(g) input stream environmentC interactive) ; 

open file(f), file{g); 



12.21 The Procedure Statement 

Syntax: 

<procedure statement> : :=[ <condition prefix>] <label prefix>... 

lprocedure|proc}[([<parameter list>] ) ][<procedure option>]...; 

<procedure option>::= <returns attribute> ! recursive! 

<reducible attribute> Kirreducible attribute> ! <options attribute> 

<parameter list>::= <identif ier>[ ,<identif ier>] 

Constraints: 

Each <identifier> in the <parameter list> must identify a level-one variable 
declared in the <procedure> headed by this <procedure statement>. 

Mo <label prefix> can contain a <prefix subscript>. 

If control passes to the <procedure statement> by the execution of a <eall 
statement>,. the <procedure statement> cannot have a <returns attribute>. 

If control passes to the <procedure statement> by the evaluation of a <function 
reference>, the <procedure statements must have a <returns attribute>. 
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The number of <iclentifier>s in the <parameter li3t> must equal the number of 
<expression>s in the <argument li3t> of the <Gall statement> or <function 
reference> that invoked this entry. 

A <proceclure 3tatement> cannot contain both a <reducible attribute> and an 
<irreduGible attribute>. 

A <proGedure statement> containing a <returns attribute> must have exactly one 
<returns attribute> with a <return3 descriptor>. 

The <option3 attribute> may not specify the keyword "constant". The <options 
attribute> may specify "support", "3eparate_statiG" , or "packed_decimal" only if 
the <procedure statement> heads an <external procedure>. The <options 
attribute> may specify "main" only if the <procedure statement> heads an 
<external procedure> and does not contain a <returns attribute>. 

Semantics: 

A <procedure statement> heads a <procedure> and denotes an entry to the 
<procedure>. When control is transferred to the entry by the evaluation of a 
<f unction reference> or the execution of a <call statement>, a new block 
activation of the <procedure> occurs and the arguments of the <function 
reference> or <call statement> are associated with the parameters in the 
<parameter list>. Refer to paragraph 3.6.2 for a discussion of <proGedure> 
activation and refer to paragraph 6.10 for a description of arguments and 
parameters. 

If control reaches a <proGedure statement> as a result of completing the 
execution of the preceding <statement>, control is transferred to the 
<statement> following the <end 3tateraent> that ends the <procedure>. 

Because the <label prefix> of a <procedure statement> results in the declaration 
of an entry constant rather than a label constant, a <goto statement> can never 
transfer control to a <procedure 3tatement>. 

Standard PL/I requires that recursive <procedure>3 contain the keyword 
"recursive" in their <procedure 3tatement>. Multics PL/I considers all 
<procedure>3 recursive. For compatibility with standard PL/I, it accepts the 
keyword. 

Example: 

P: procedure(A,B,C) returns(pointer) ; 

In this example, P is an entry to the <procedure> headed by the <proGedure 
statement>. Invocation of P results in a pointer value. The entry requires 
three arguments that are associated with the parameters A, B, and C. 

12.22 The Put Statement 

Syntax: 

<put statement>::= [<prefix>]put{<file put>!<3tring put>}; 
<file put>::s <file put option>... 

<flle put option>::s <file option>|<3kip option>| 

<line optionXpage option>i<put list specif ication> 

<file option>::= file(<reference>) 

<skip option>::r skip[(<expression>) ] 

<line option>::i line(<expression>) 

<page option>::= page 
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<put list specification>::= <put liat>!<put data>!<put edit> 

<put llat>::= list C< put lteiB>[,<put item>]...) 

<put item>::= <expre3sion> I 

(<put item>[,<put item>]. . .<list do>) 

<list do>::= <multiple do> 

<put data>::= data[(<put data item>[,<put data item>]...)] 

<put data item>::s <reference>| 

(<put data item>C,<put data item>], . .<liat do>) 

<put edit>::= edlt<put edit pair>,,. 

<put edit pair>::= (<put itein>C,<put item>]...) 
(< format specification li3t>) 

<string put>::= <3tring optionXput list 3pecification> I 
<put list specificationXstring option> 

<string option>::= 3tring( {<reference> !<pseudo-variable>}) 
Constraints: 

Evaluation of a <put iten.> or <put data iteffl> must yield an arithmetic or string 
rtlT>' .If ^ "^r"""^^'*' extension, evaluation of a <put i?em> or <?ut SaSI 
co^n?ain:2^nn1^ut^"eJit'=JS!r>?f ^^'"^ ^''"^^ ^" '^'^ -^- -^«- ^^« itemlj 

Evaluation of the <referenee> in the <file option> must yield a scalar file 

3ciisn?;t;ieti: iriitrniT^itv <"'"^ ''''''> ^^^ <^^^p °p^^°"> »-* y-^<i - 

chaJaltir"striSS%lr1abll.°'''"'' """^ ^^«^^ ^ generation of storage of a scalar 

j:5i;^isis; s^ it^?^^e^ij%jrSt?[ni ^gsLnJ?^"^ ""^^ "°^ ^^-"^^ ^^« -- 
con?^Lr:^e'sr^o?r<?L^^rs;:'L?er?^ij^!*^ ^'^'^''^ "^°^« <^«« -^--«> 

optJSn>'ca;;oralrbi%!JL^! '" " ''''" ''"''' ''^^ <^^"« °^"-> - <P-Se 

;sJiiJsrsijp;!^^T<?ii^^j;tiSsrsfthrfor:: <^^^^"« -^^°"> ^^ «^-"' ^^« 

file(3y3print) 

ODtio„^nn^^h^2^^f°^^ discussion of the effect of this compiler-supplied 
option on the establishment of declarations. aui^ppiicu 

Semantics: 

incilldertirinlini*^^/*'* ''*"'??* "e^^*** ^ linemark into the data stream" 1 

to o2e as i? r ?LJ^°r*°*"Js"* linenumber by one and setting columnposition i 

<Li« rnrmf^^s f ! <skip format> were being evaluated at that point. The I 

<skip^ format> is described in paragraph 12. t2. point, ine m 
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JL*^r!if''"^ statement> contains a <file option>, it is executed by performing 
the following steps in the indicated order: periorniing 

1. Evaluate the <expression>s or <reference>s immediately contained in the 
<;flle option>, <slcip option> and <line option> in an unspecified order. 

Let f denote the file-state block identified by the value of the <file 
option> . 

Convert the value of the <skip option> to a fixed-point, binary, integer 
k. If the <expression> is omitted from the <skip option>, let k be one. ' 

Convert the value of the <line option> to a fixed-point, binary, integer, 

2. If f is closed, open it as described in paragraph 11. 3. After f is open. 
It must have the <stream attribute> and <output attribute>. If the <page 
option> or the <line option> is given, f must have the <print attribute>. 

^' fnfif r«r™"^'^^^?® °Pti°n>? <line option>, or <skip option> as if it were a 
<page forraat> <Une format>, or <3kip format> as described in paragraph 
:.\ . ^ ^?^^ ^ <P^8e option> and a <line option> are given, the <page 
option> IS evaluated before the <line option>. 

4. If f has an <envlronment attribute> specifying "interactive", place a 
eiSlulted/"^° "^^ '^^^^ ^^'"*^"' ^"®'' ^^^ ^P"*" ^"^ specif ication> has been 

^' indicatid^ordeJ? ^^^^"^^^'^ ^V performing the following steps in the 

5a. Establish the next list item as described in step 3, If the list item 
is a scalar, consider it to be the next output value. If the list 
item IS an aggregate, consider each of its scalar components to be an 
output value, taking the elements of arrays in row-major order and the 
members of structures in left-to-right order. For each scalar output 
value, perform steps 5b through 5f. 

5b. If the output value is an arithmetic or string value, convert it to a 
character-string according to the conversion rules given in Section 8. 
Otherwise, convert the output value to a character-string by using a 
nonstandard Multics routine. Let S be the converted character-string 
value. * 

If the original output value was a bit-string, enclose S in quote 
characters and append a "b" to the end of S. 

If the original output value was a character-string, including a 
pictured character-string, and f does not have the <print attribute>, 
enclose S in quote characters and replace each contained quote by a 
pair of quotes; otherwise, do not modify S. 

^®^ ?1 ^t S!?® ^^"^^ converted value to be output and let n be the 
length of S' . 

5c. If f has the <print attribute> and columnposition is not one or a 
multiple of ten plus one, place an ASCII tab character into the data 
!,*?",, ^*^ columnposition to the next higher value in the sequence 
il;2l,3i ..... unless this action would cause columnposition to exceed 
iineslze; in that case, place a linemark into the data stream. 

5d. If n>aineslze-columnposition+1) t columnposition^sl , place a linemark 
intO' the data- stream. 

5e. Places' into the data stream using linemarks to split S'. when 
necessary, as described for <data foraat> output in paragraph 12.12. 

5f . Place a single blank into the data stream. 
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6. A <put data> is evaluated by performing the following steps in the 
indicated orderr 

6a, If the <put data> has no <put data item>s, create a list of <put data 
ltein>s containing a <reference> to every level-one variable whose 
scope of declaration includes the <put 3tatement>, but exclude any 
variables that violate one or more of the constraints given above. 
rne order of the <put data item>s in the list is unspecified. 

6b. Establish the next list item as described in step 8. If the list item 
13 a scalar, consider it to be the next output value. If the list 
Item is an aggregate, consider each of its scalar components to be an 
output value, taking the elements of arrays in row-major order and the 
members of structures in left- to-right order. For each scalar output 
valuif, perform steps 6c. through 6i. 

6c. Form the character-string representation of a fully qualified 
<reference> to the output value with each <subscript> written as a 
<decimal integer> with an optional minus sign. The <reference> 
contains a single optional <3ubscript list> following the rightmost 
<identifier>, and contains no blanks. 

Examples: 

S. A. 8.(1,4,-2) 

X(5) 

W.Q 



6d. If f has the <print attribute> and columnposition is not one or a 
multiple of ten plus one, place an ASCII tab character into the data 
stream and set columnposition to the next higher value in the sequence 
, -I-L'^^ ' * • * • "^"^^ss this action would cause columnposition to exceed 
I" that ease place a linemark into the data stream. 



6e. Let R be the character-string formed in step 6c. 
character-string S consisting of: 



Form 



Let V be the character-string representation of the list item, as it 

would be produced by execution of a <put list> for a file not 

containing the <print attribute>. Let n be the length of S, and let m 
be the length of V. 

6f. If nXlinesize-columnposition^-l) & columnposition" = 1 , place a linemark 
into the data stream. 

6g. Place S into the data stream using linemarks to split S, when 
necessary, as described for <data format> output in paragraph 12.12. 

6h. If m>(linesize-Golumnposition+1) & columnposition"s1 , place a linemark 

into the data stream- 
Si. Place V into the data stream using linemarks to split V, when 

necessary, as described for <data format> output in paragraph 12.12. 

64. If this is the last scalar output value to be output by this execution 
of the <put. statement>, place a semicolon into the data stream; 
otherwise, place a single blank into the data stream. 

T» A <put edit> is evaluated by performing the following: 

Establish the next list item as described in step 8. If the list item is a 
scalar, consider it to be the next output value. If the list item is an 
aggregate, consider each of its scalar components to be an output value. 



I 
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taking the elements of arrays in row major order and the member oi 
structures in left-to-right order. For each output value pass Control tl 
the <format specification li3t>. The evaluation of a <format specificatio 
list> causes the output value to be converted and placed into the da? 
stream. Refer to paragraph 12.12 for a description of the evaluation of 
<forinat specification list>. -■-uai.i.on oi , 

^' iLr^i^rfnrm .^h^S^Jf^^ ^P"*' '^^^^^ °'* <P"<^ «'^it> to Obtain the next list 
Item, perform the following steps in the indicated order: 

ffrvio^^ ^^ "? current <put itera>, let the current <put item> be the 
<Dut ?tL>^iI fh^^°'\ or <put data item>; otherwise, let the current 
<put item> be the next <put item> or <put data item>. If no <Dut 
item>s or <put data itera>s remain, transfer control to the <statement) 
following the <put statement>. v.sudi,eo,ent> 

If the current <put item> is an <expression> or <reference>, evaluate 
it to obtain its vaxue. Let the obtained value be the current list 
1 cem . 



3a. 



8b. 



a 



8c. If the current <put item> is a parenthesized list of <put itera>s or a 

?rK2^''®w"®^ ^^^l °t "^2"^ ^^^^ item>s, consider the entire construct 
to be a do group of the form: 

<multiple doXput item>[,<put item>] . . .end; 

Evaluate the do group as if it were a true <group>. Evaluate each 
<put item> by performing steps 8b or 8c. When control reaches the end 
of the <group>, evaluate the next <put item> or <put data item>. 

the^follSwing:^*"*""*"*^ contains a <string option>, it is executed by performing 

Evaluate the <string option> as if it were the <target> of an Assignment 
statement>. The evaluation must yield a generation of storage of a scalar 
character-string variable. a^-dj.dr 

Let the generation of storage yielded by evaluation of the <string option> 

^L.JJ^J" s ^*''*^f: S. For purposes of evaluating the <put list 
specifications, consider columnoosition t.n h« HafinaH ^it-v, ^^ ,-..<*.j-i .._■..._ 
of one, and consider linesize to be defined with an'initial"value''"that°'''is 
the length extent associated with the generation of storage of S. 

Evaluate the <put list specif ication> as described by steps 6, 7 and 8. 

Ifnnl? ^5f J^^^ output value has been placed into the data stream by this 
<put 3tatement>, the current length of S is defined as n, where n is 
columnposition-1. Let m be the length of the generation of S. If n<m and 
s is nonvarying, m-n blanks are used to fill the remaining characters of S. 
If S IS varying and n<m, the current length of S is defined as n. If n>m. 
the error condition is signalled before the (m+1)th character is placed 
into the data stream. y-ta^c« 

Example: 

put file(f) page list(A,B,C, (X(i) do i=1 to 10), D); 

Execution of this <statement> causes the data stream Identified by f to contain 
llU^\1%\ ' l°,MV^. ?? the^ values of A, B and C; followed bj the values o? 
X(i;, X(2},...,X{10); followed by the value of D. Each value begins on a 
columnposition that is a multiple of ten plus one. Linemarks are inserted to 
split the stream into lines of linesize characters each. 
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Example: 

put string(S) edlt(A.B) (a( 10) ,p"99v99») ; 

resulting ,»i,l\f TlLrltlTrl' u'Le'lL lUlTltT'''"'''" "■"' ' ""' 
Example: 

put file(F) data; 

Execution of this <statement> causes 




Example:^ 

put data(A,B(I),C); 

3t"si'?3.«i?;^i ^r"jn"rintv"" "" '•°"'"""« " ^ -i-^ '»'= "• =!»> 

A=5ai5BB»»BB(10)=2bBBC=7; 

12.23 The Read Statement 

Syntax: ^-- 

<read statement>::= [:<prefix>3read<read option>...; 
<read optlon>::=r <fiie option>!<receiver>|<key speO 
<file option>::=. file(<reference>) 

<receiver>::= <into option>i<set option>!<ignore optionX 
<into option>::=: into(<reference>) 
<3et option>::= 3et(<reference>) 
<ignope option>::= ignore(<expression>) 
<key spec>::= <key option>|<keyto option> 
<key option>::= key(<expression>) 
<keyto option>::= keyto(<reference>) 
Constraints: 

Evaluation Of the <reference> in the <flle optio„> must yield a scalar- file- 
Evaluation of an <i„to option> must yield a generation of connected storage. 
^ilt^r'^arJlbL?'" ''"°"^ ""^' ^'^^'^ * generation of storage of a scalar 
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Evaluation of an < ignore option> or <key option> must yield a scalar arithtneti< 
or string value. 

Evaluation of a <keyto option> must yield a generation of storage of a scalar 
character-string variable. 

A <read statement> must contain exactly one <file option> and exactly oni 
<receiver>. 

A <read statement> can contain only one <key 3pec>, but if the <receiver> is ar 
<ignore option>, the <read 3tatement> cannot have a <key speO. 

Semantics: 

A <read statement> is executed by performing the following steps in the 
indicated order: 

1 . Evaluate all <read option>s in an unspecified order. 

Let f denote the file-state block identified by the value of the <fil6 
option>. 

Convert the value of the <expression> in the <key option> to s 
character- string. 

Convert the value of the <expression> in the < ignore option> to a 
fixed-point, binary, integer, k. The converted value, k, must be greater 
than zero . 

2. If f is closed, open it as described in paragraph 11.3. After f is open, 
it must have the <input attribute> or the <update attribute>. If f has the 
<stream attribute>, go to step 10. Otherwise, if a <key option> is given, 
f must have the <keyed attribute>, and if f has the <direet attribute>, a 
<key QptiQn> must be given. 

3. Free any input buffer associated with f. This circumstance occurs when the 
previous input operation on f was the execution of a <read statement> 
containing a <set option>. 

*«. If an <ignore option> is specified, set currentreoord to designate the 
vk-l;(th record following the record designated by nextrecord. Signal the 
endfile condition if the value of k would position currentrecord off the 
end of the data set. 

If a <key option> is specified, set the currentrecord of f to designate the 
record identified, by the converted value of the <expression> in the <key 
option>. If no such record exists in the data set attached to f, signal 
the key condition. 

If no <key option> or <ignore option> is specified, set currentrecord to 
the value of nextrecord. If nextrecord is null, signal the endfile 
condition. 

5. If f has the <3equential attribute>, set nextrecord to designate the record 
following the new current record. If there is no next record, set 
nextrecord null. 

6. If a <keyto option> is specified, assign the key associated with the 
current record to the variable identified by the <reference> given in the 
<keyto optionX. 
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7. 



the v»ri«hii'^Hi ^pf ^Pr^fu*^;."^^8n ^ °°Py °f t^« current record to 
tne variable identified by the <into option>. if the file-state block has 
an <environment attribute> specifying "stringvalue", and the variable X 
aSlhn^ft '^ Z*"^ .^'"'° option> is a scllar variable wfthlhe^a^ying 
the fS?m P*''^°''" ^^^ assignment by executing an assignment statement of 



X = R; 



where R 
raise 



R is the record treated as stringvalue. . If this 
the <string3ize eondition>, raise <record oc 



assignment would 
?Se*form? ^*''^°'''" ^^* assignment by ;xecuUng an'<assignmenf J?atemen?5"of 



8. 



9. 
10. 

11. 
12. 



13. 



unspecCX) s unspeeCR); 

Where X is the variable referenced by the <into option> and 
record . 



R is the 



Jltirn*^?io"^^^^^''^r"^*"?^*'^""^P*°^^^^' "«"^1 ""^^ '•«°°r<^ condition. on 
and tL f^nath^l Y ""i^^' ^''"Pl^te the assignment as if the length of R 
and the length of X were the minimum of the lengths of X and R. 

suffi^f»ni.°''«i°"^ /^ ^^?!°^^^®'*' ail°°at« a generation of storage of 
fnJ i- ."fu ^° ^°^*^ ^ "''Py °^ the current record in "system storage" 

and associate the generation with f as its input buffer. Assign a oojy If 

tut ro^^ol^r? rr°r^/° ""^^^ ''"^^*'* ^"^ "^i8" 3 pointer valul identifying 
the^record in the buffer to the generation of storage identified bv the 
<reference> given in the <set option>. enmiea oy tne 

Transfer control to the <statement> following the <read statefflent>. 

Iinfcn'*nn?inn^^®°!r^ Bust not Contain a <key speO and must contain an 
vaJiabll! contains a <referenoe> to a scalar character-string 



If the data stream is positioned at the end of the data «t.r-»am 
endflle condition. "'" ' 






Scan to find the next linemark, and let S be the string of all characters 
scanned except the linemark that stopped the scan. If ?L end ofthfJlJa 
f«H?f?^ is encountered during the scan, stop the scan but do not signal the 
chariifJ ^«T^''■^*"'?^'''?^ Otherwise, position the data s2?eam^?o Ihl 
character following the linemark and set columnposition to 1 . 

iJJiL''%''J« °^^''?°''f|:?«*''i"f variable referenced by the <into option>. 
n»f;! ^.L H iL^**" assignment would raise- the <stringsize condition>, 
raise <record condition> instead. 



Examples: 

read- file(f) into(X); 

read file(g) set(p); 

read flle(s) ignore(n),' 

read fHe(h) key(r) into(x); 

read file(f) set(p) keyto(y); 
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12.24 The Return Statement 

Syntax: 

<return stateinent> : := [<pref ix>]return[(<return value>)]; 

<return value>::= <expression> 
Constraint: 




Semantics: 

If the program is executing within a run unit, and the current procedure block 
activation is the first activation of a <procedure> headed by a <procedure 
statement> containing an <options attribute> specifying the keyword "main", the 
effect is as if a <stop statement> had been executed. 

If the <return value> is omitted, a <return stateraent> is executed by 

terminating the current procedure block activation and transferring control to 

the <statement> following the <call statement> whose execution created the 

current procedure block activation. The preceding block activation is the new 
current block activation. 

If the <return value> is present, a <return statement> is executed by evaluating 
the <return value> and promoting its value to conform to the aggregate type 
specified in the <returns attribute> of the <entry 3tatement> or <procedure 
statement> used to enter the current procedure block activation. The promoted 
value is converted to conform to the data type specified in the <returns 
attribute>. The promoted and converted value is the value of the <function 
reference> whose evaluatloir created the current procedure block activation. The 
current procedure block activation is terminated and control returns to continue 
evaluation of the <statement> containing the <function reference>. The 
preceding block activation is the new current block activation. 

Refer to paragraph 3.3.1 for a discussion of block activation and to oaragraphs 
8 and 9 for discussions of conversion and promotion. 

Examples: 

return; 
return(a+b) ; 



T/78 12-37.1 AG94B 



12.25 The Revert Statement 

Syntax: 

<revert statement> : : = [<prefix>] revert<condition li3t>; 

<condition list>::= <condition name>C ,<condition name>]...' 
Constraint: 
Each <condition name> must be one of the <conditlon name>s given in paragraph 

Semantics: 

A <revert 3tatetnent> is executed by evaluating the <condition na[ne>s in an 

unspecified order. For each of the specified <condition name>s, revert the 

associated <on unit> if it was established by the current block activation. 

Refer to Section 10 for a full discussion of conditions. 

Examples : 

revert endpage(f); 

revert underflow, overflow; 

12.26 The Rewrite Statement 

Syntax: 

<rewrite statement> : := C<pref ix>]rewrite<rewrite option>...; 
<rewrite option>::= <ftle option>|<key option> ! <from option> 
<file option>::= file(<ref erence>) 






<from option>::= from(<ref erence>) 
Constraints: 

A <rewrite statement> must contain exactly one <file option> and cannot contain 
more than one <key option> or more than one <frora option>. 

Evaluation of the <reference> in the <file option> must yield a scalar file 
value. 

Evaluation of the <key option> must yield a scalar arithmetic or string value. 
Evaluation of the <from option> must yield a generation of connected storage. 
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Semantics : 

A <rewrite statenient> is executed by performing the following steps in the 
indicated order: 

1. Evaluate the <rewrite option>s in an unspecified order. 

Let f denote the file-state block identified by the value of the <file 
option>. 

Convert the value of the <expression> in the <key option> to a 
character-string. 

2. If f is closed, open it as. described in paragraph n.3. After f is opened 
it must have the <update attribute>. If a <key option> is specified f 
must have the <keyed attribute>. ' 

3. If a <key option> is specified, set the currentrecord of f to designate the 
record identified by the converted value of the <key option>. If no such 
record exists in the data set attached to f, signal the key condition. 

If a <key option> is specified and f has the <sequential attributO set 
nextrecord to designate the record following the new current record' If 
there is no next record, set nextrecord null. 

If no <key option> is specified, currentrecord must not be null. 

4. If the fi.le-state block has an <environment attribute> specifying 

stringvalue", a <from option> is specified, and the variable X 
referenced bj- the <from^ option> is a scalar variable with the <varyin^ 
attribute>, then replace the record designated by the current record with a 
string equal to the current value of X. 

If a^ <froffl option> is sfrectfied, and the preceding paragraph does not 
appl/ii^ replace the record designated by currentrecord with a copy of the 
variable identified by the <reference> in the <from option>. If f does not 
have the <keyed attributed and the size of the variable is not equal to the 
size of the record designated by currentrecord, signal the record 
condition. If control returns from the <on unit>, transfer control to the 
<;statement> following the <rewrite statement>. In that case, the record 
designated by currentrecord remains unchanged. 

If no <frora option> is specified, there must be an input buffer associated 
with f . This input buffer will be present only if the last input operation 
on f was the execution of a <read statement> containing a <set option>. 
When a <from option> is not specified, replace the record designated by 
currentrecord with a copy of the record in the input buffer. 

Examples: 

rewrite file(f) from(x); 
rewrite file{g) from(x) key(y); 



12.27 The Signal Statement 

Syntax: 

<signal statement>::= C<pref ix>]signal<condition rarae>; 
Constraint: 
The <condition name> must be- one of the <condition nap:e>s defined in paragraph 
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Semantics: 

If detection of the condition identified by the <oondition name> is disabled, 
transfer control to the <statenient> following the <signal 3tatement>; otherwise, 
perform the following actions in the indicated order: 

1. For the conditions listed below, stack the current values of their 
associated built-in functions and assign the built-in function the default 



value shown below. 
Condition 

conversion 

conversion 

name(f ) 

key(f) 
»endfile(f) 
•transmitCf ) 
*record(f ) 



Builtin Function 

onsource 

onchar 

onfield 

onkey 

onkey 

onkey 

onkey 



Value 

null string 

blank 

null 

null 

null 

null 

null 



string 
string 
string 
string 
string 



» Only set to this value when f has the <keyed attribute>. 

2. Signal the condition. A signal for condition, c, causes the most recently 
established <on unit> for c to be invoked as a <procedure>. Refer to 
Section 10 for a full discussion of conditions and signals. 

Examples: 

signal conditlon(x) ; 
signal zerodivide; 



12.27a The Stop Statement 

Syntax: 

<stop statement>: 
Semantics: 



[<preflx>]3top; 



If the program is executing within a run unit, execution of the program is 
terminated by performing the following steps: 

1. Raise the <finish condition>. 

2. Terminate all block activations. 

3. Close all open files. 

4. Terminate the run unit. 

If the program is not executing within a run unit, the system condition 
command_abort_ is signalled. The standard system action for command abort is 
to return control to the Multios command processor in such a way that~the 
remainder of the current command line is executed. 
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12.28 The Write Statement 

Syntax: 

<write statement>::= [<pref ix>]write<write option>..,; 

<write option>::= <file option> i<from option>| 
<keyfrom option> 

<file option>::= file(<reference>) 
<frora option>::= from(<reference>) 
<keyfrom option>::= keyfrom(<expression>) 
Constraints: 

Evaluation of the <reference> in the <file option> must yield a scalar file 
value. 

Evaluation of the <expression> in the <keyfrora option> must yield a scalar 
arithmetic or string value. 

Evaluation of the <from option> must yield a generation of connected storage. 

A <write statement> must contain exactly one <file option> and exactly one <from 
option>. It cannot contain more than one <keyfrom option>. 

Semantics: 

A <write statement> is executed by performing the following steps in the 
indicated order: 

1. Evaluate the <write optionXs- in an unspecified order. 

Let f denote the file-state block identified by the value of the <file 
option>. 

Convert the value of the <expre33ion> in the <keyfrom option> to a 
character-string. 

2. If f is closed, open it as described in paragraph 11.3. After f is opened, 
if it has the <stream attribute>, then go to step 9; otherwise, f must have 
the <record attribute>. It cannot have the <input attribute>. If it has 
the <update attribute>, it must also have the <keyed attribute>. If the 
<keyfrom option> is specified, f must have the <keyed attribute>; if f has 
the <keyed attributed, the <keyfrom option> must be specified. 

3. If an output buffer is associated with f, create a new record in the data 
set and write the content of the buffer as the value of the new record. If 
an evaluated key is associated with the buffer, associate it with the 
record as its key. If any record in the data set already has this key, 
signal the key condition. 

If f has the <keyed attribute>, create the new record in its proper 
position within the data set as determined by its key; otherwise, append 
the new record to the end of the data set. 

After the record is written, free the output buffer. An output buffer 
exists when the previous output operation on f was the execution of a 
<locate statement>. 
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4. If the <l<eyfrotn option> Is specified and the data set already contains a 
record whose associated key is the converted value of the <keyfrom option>, 
signal the key condition. If currentrecord is not. null, and f has both the 
<keyed attribute> and the <sequential attribute>, and the converted value 
of the <keyfrora option> is not greater than the key of the record 
designated by currentrecord, signal the key condition. 

5. If f has the <keyed attribute>, create the new record in its proper 
position within the data set as determined by its key; otherwise, append 
the new record to the end of the data set. If the variable, X, referenced 
by the <from option> is a scalar variable with the <varying attribute>, and 
if the file-state block has an <environment attribute> specifying 
"stringvalue", the record is a string equal to the current value of X, 
Otherwise, the record is a copy of the content of the generation identified 
by the evaluated <from option>. 

6. Associate the converted value of the <keyfrom option> with the new record 
as its key. 

7. Set currentrecord to designate the new record and set nextrecord to 
designate the record following the new record if one exists. If no such 
record exists, set nextrecord null, 

8. Transfer control to the <statement> following the' <write 3tatement>. 

9. f must have the <output attribute>. The <write statement> must not have a 
<keyfrom option> and must have a <frora option> that references a scalar 
character-string variable. 

10. Let the variable referenced by the <frora option> be S. If 
lengthCSXslinesize-Golumnposition-Kl , place the value of S into the data 
stream; otherwise, signal the <record condition>. Upon return from the 
<on unit>, place substrCS, 1 ,linesize-Golumnposition+1 ) into the data 
stream. 
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Place one linemark into the data stream, set columnposition to one, and add 
one to linenumber. If linenumber = pagesize+1, then signal the 
<endpage condition>. 



Examples: 

write file(f) from(x) keyfrom(y); 
write file(g) from(x); 
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SECTION 13 



BUILT-IN FUNCTIONS 



The funGtions described in this section are an intrinsic part of the 
language. Functions marked with -i- are not part of standard PL/I but are 
supported by Multics PL/I. For descriptive convenience the built-in functions 
are grouped into six classes. 



1. String Built-in Functions. 



after 


collate 


index 


reverse 


before 


+collate9 


length 


+rtrim 


bit 


copy 


low 


+search 


bool 


decat 


+ltriin 


string 


Kbyte 


high 


+fflaxlength 


substr 


character 


+high9 


+rank 


translate 


Stic Built- 


in Functions. 






abs 


decimal 


max 


real 


add 


divide 


min 


round 


binary 


fixed 


mod 


sign 


ceil 


float 


multiply 


subtract 


complex 


floor 


precision 


trunc 


conjg 


imag 






ticaL Built-in Functions 






acos 


COS 


exp 


sind 


asin 


cosd 


log 


sinh 


atan 


cosh 


loglO 


sqrt 


atand 


erf 


log2 


tan 


atanh 


erfc 


sin 


tand 
tanh 



verify 



4. Array Built-in Functions. 



dim hbound 
dot Ibound 


prod 


sum 


on Built-in Functions. 






onchar onfield 
oncode onfile 


onkey 
onloc 


onsource 
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6. Miscellaneous Built-in Functions. 

addr +convert +nullo +stackba3eptr 

+acldrel +currentsize offset *stackframeptr 



allocation date pageno -fstacq 

+ba3eno empty pointer time 

+environmentptr +rel unspec 

+olock lineno +size valid 

I +codeptr null +stac +vclock 



I +baseptr 



To facilitate the description of the built-in functions, each function is 
described in terms of one or more examples. Built-in functions are referenced 
with a <runction reference> as described in paragraph 6.8. If a function allows 
a variable number of arguments, the examples show all possible forms of the 
<function reference>. Unless the description of a specific function states 
otherwise, all arguments can be <expression>s. 



13-1 String Built-in Functions 

When a description of a function indicates that its argument is to be converted 
to a character-string, the conversion occurs as if the argument were an operand 
of the "!!" infix operator- If the argument is to be converted to a bit-string, 
the conversion occurs as if the argument were an operand of the " I " infix 
operator. Refer to Sections 7 and 8. 

Unless the description of a specific function states otherwise, the function can 
be invoked with scalar or aggregate arguments. When invoked with one or more 
aggregate arguments, all arguments are promoted to the highest common aggregate 
type as if they were operands of an infix operator. Refer to Sections 7 and 9. 



13.1.1 After 

Example: 

after(S,C) 

S and C are converted to S' and C». If both S and C are bit-strings, S' and C 
are bit-strings; otherwise, S' and C are character-strings. 

If S' is a bit-string, the result R is a bit-string; otherwise, R is a 
character-string. 

If C does not occur as a substring within S', or if S' is a null string, R is a 
null string. 

If C is a null string, R is S'. 

If C is a substring within S', let i be the position within S' of the rightmost 
character or bit of the leftmost substring C, and let n be the length of S'. 

If isn, R is a null string. 

If i<n, R is aubstr(S' .l-Kl). 
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.13.1.2 Before 

Ex ampl e : 

before(S,C) 

3 and C are converted to S' and C. If both S and C are bit-strings, S' and C 
are bit-strings; otherwise, S' and C are character-strings. 

If S' is a bit-string, the result R is a bit-string; otherwise, H is a 
character -string . 

If S' or C is a null string, S is a null string. 

If C is not a null string and does not occur as a substring within S', R is S'. 

If C is a substring within S',let i be the position within S' of the first 
character or bit of the leftmost substring C. 

If isl, B is a null string. 

If i>1, R is substr(S',1,i-n. 
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13.1.3 Bit 

Example: 

bit(S) or bites, L) 

^o«^n'?°"^fV^®^ ^° ^'' "'^^^^ ^' ^^ ^ fixed-point, binary, real value of precision 
^d'i,Q). L' must be a nonnegative scalar value. 

If L is given, S is converted to a bit-string of length L'. 

If L is not given, S is converted to a bit-string S' as described in paragraph 

The result R is a bit-string whose length is the length of S' and whose value is 

vilS VaJ.U€' OX o • 

13.I.M Bool 

Example: 

bool(X,y,W) 

X, Y and W- are converted to bit-string values X', Y' and W. The length of W 
^^J\^^l^: The shorter of X' or Y> is extended on the right with zero bits 
until It 13 the length of the longer string. 

The result R is a bit-string. 

If both X' and Y' are- null strings-, R is a null strings 

If X' and Y/ are not null strings, the length of R is the common length of X' 

a?e the foSr bUs SfVf ^ " ^^''*" ^" ^'^^ following table. Ml, M2, MB and M4 

X'k Y'k Rk 

Ml 

1 M2 

1 M3 
1 1 M4 

13.1.4a Byte 

Example: 

byt6(X) 

Sjlticf Jl/i"^*^"*^^'"'* built-in function and its use makes programs dependent on 

X is converted to X', where X' is a fixed-point, binary, real, value of 
precision (9,0). X' must be a nonnegative value. 

The result R is a character-string of length 1. 

The value- of R is 3ub3tr(collate9() ,X'-«>1 , 1 ) . 
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13.1.5 Character 



Example: 

character(S) or character(S,L) 

precisior?251)'° U LftV. ^* " ^ fixed-point, binary, real, value of 
precision t,if,oj. l' must be a nonnegative scalar value. 

If L is given, S is converted to a character-string, S', of length L'. 
Jaragraph"^!.!!''®"' ^ " converted to a character-string S' as described in 

vaLHs'the value Sj's'!'"""'"''"^ "'''''^ ^""^''^ ^^ ^^^ ^^"Sth of S- and whose 
The character built-in function has two names: character and char. 
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Example: 

coHate< ) or collate 

The result is a character-string of length 128 that consists of the set of 
Characters in the Hultics ASCII character set in ascending order. Th» Hultics 
ASCII character set is defined in the "Multics Programmers' Manual" 



13. 1.6a Coll ate9 

Exaaple: 

collate9() or collate9^ 

The result is a character-string of length 512 that consists of the set of 
S«?^f««®^'^ ^!! J^t ""^ti°s Extended Character Set in ascending order. The 
u i^o,^''^*"'**^ Character Set is defined in the HPM Reference Guide, Order 

HO . AU91 . 



13.1.7 Copy 

Example: 

copy<S,N} 

Lif.^?«r!rla**n>° "uT *"*rw "'^^^ ^ fixed-point, binary, real, value of 
precision (2*,0)^ N» must be a nonnegative scalar value. 

If S Is a bit-string, it Is converted to . a bit-string S': otherwise, it is 
converted to a character-string S'. 

The result R ts a string; of the same type as S*. 

If M' =0, R is a null string. If M' = 1, the value of R is S'. If H' > 1. the 
value of R is the value of S- concatenated with itself M'-l tim4s. • . tne 



13.1.8 Dec at 

Example: 

decat(S,C,X) 

X is converted to a bit-string 3C' of length 3. 

If both S and C are bit-strings, they are converted to bit-strings, S' and C; 
otherwise, they are converted to chai'acter-strings S' and C . 
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followiSj? ^ ^' * .string of the same type as S' . The value of R is given by the 
below:^* * ""^^ string, the value of R depends on X' as shown in the table 



299 A null string 

001 31 

9]9 A "ull string 

Oil 3. 

100 A null string 

101 3. 

110 A null" string 

111 3 • 

If C is not a null string, and C is not a substring of S', the value of 
depends on X' as shown in the table below: 



000 A null string 

001 A null string 
010 A null string 

Oil A null string 

100 3' * 

101 31 

110 31 

111 3' 



000 Ai null strings 

001 after(S',C') 
010 ct 

on C'!iafter(S',-C') 



100 
101 

110 before(S'ic'>i ic' 

111 3' 



before(S',C') 

before(S ' ,C' ) I i after(S • ,C' ) 



13»1.9 High 

Example: 

high(N) 



Dri^t^?on*?pf n^° "wJ "^Tk '*' ^^ ^ fixed-point, binary, real, value of 
precision (24,0). N' must be a nonnegative scalar value. 

I?!K,I!r^u " ^! ^ f'""^"* °^ ''*° characters o^f length M'. A PAD character is the 

PrlgrMme?r^SaJuai". ""^"" ^^^^^ character set aa defined in "The Multics: 
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13.1.9a Hlgh9 

Example: 

high9(N) 

M is converted to N', where N' is a fixed-point, binary, real, value of 
precision {24,0). M* oust be a nonnegative scalar value. 

The result R is a string of characters of length N', all of whose bits are 
one-bits. This is the highest character in the Multics Extended Character Set 
as described in the "Multics Programmers' Manual." 



13.1.10 Index 

Example: 

indexes, C) 

If both S and C are bit-strings they are converted to the bit-strings S' and C; 
otherwise, they are converted to the character strings S' and C. 

The result R is a fixed-point, binary, real, value of precision (24,0). 

If either S' or C is a null string or if C is not contained as a substring 
within S'. R is zero; otherwise, R is the position within S' of the first 
character or bit of the leftmost substring C . 



13.1.11 Length 

Example: 

length<S) 

If S is a bit-string, it is converted to a bit-string S'; otherwise, it is 
converted to a character-string S'. 

The result R is a fixed-point, binary, real, value of precision (24,0). 

The value of R is the length of S*. 



13.1.12 Low 

Example: 

low(N) 

H is converted to M', where M' is a fixed-point, binary, real, value of 
precision- (24,0), M' nus^ be a nonnegative scalar value. 

The result R is a string of HUL characters of length M' . A NUL character is the 
lowest character in the Multics ASCII character set as defined in the "Multics 
Prograaaers' Manual."' 
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13.1.12a LtrlM- 

Example: 

ltrim(S,C) or Itrim(S) 
Itrim is a nonstandard built-in function and its use nakes programs dependent on 

rlUX&lCS PL/I* 

S and C are converted to the character-strings S' and C If C is omitted, the 
value of C is a single blank character. The result B is a character-string. 

To determine the value of R, let n be the length of S'. 



If n is zero then R is the null character-string. Otherwise, tor- k-l 2 n 
the kth character of S', S'k, is tested to see if it occurs in C',' Let'm'be'the 
first value of k for which the test fails; or if the test succeeds for all 
values of k, m=n+1. 

The length of the result R is l=n-m*1. For k=l,2,...,l, Rk=S'k+m-1. 



13.1.12b Waxlength 

Example: 

naxlength(S) 

maxletfgth is a nonstandard built-in function and Its use makes programs dependent 
on Hultics PL/I. 

If S is a bit-string, it is converted to a bit-string S'; otherwise, it is 
converted to a character-string S' . 

The result R is a fixed-point binary, real value of precision (24,0). 
The value of R is the maximum length of S». 

MOTE: The maxlength built-in function differs from the length built-in 
function only^ when S is a varying bit-string or a varying 
character-string. In all other cases both built-in functions return 

13.1. 12e Rank 

Example: 

rank(X) 

rank is a nonstandard built-in function and its use makes programs dependent on 
nuXtlcs PL/X . 

X must be a character-string of length 1. 

The result R is a fixed-point, binary, real, value of precision C9,Q). 

The value of R is index Ccollate9() ,X)-1 . 
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13.1.13 Reversg 

Example: 

reverseCS) 



If S is a bit-string, it is converted to a bit-string S'- otherwise It i <! 
converted to a character-string S'. =>i.rins a , otherwise, it is 

Th! CfS"i5/ ^' a **"*.^"8 """"^ '=yP* "<* l«"8th are the type and length of S> 



13.1.13a Btrlm 

Exanple: 

rtrii8(S,C) or rtrlm(S) 

Je^en'den? on"M„"°tic^%L/l"!"*'"''''' ""'"-'" '""°"°" '"*' "= "'* "'^•'" '"•°«"- 

S and C are converted to the character-strings S' and C. If C is omitted the 
value of C is a single blank character. The result R is a character!strtng. 

To determine the value of R, let n be the length of S'. For ksn n-1 1 the 
fir»t''v»f*^*'*;"".^;' ^'b ^' ^^'""^ ^^ ^" ^^ ^t occurs in c"!' Let' »'b4 tSe 
va"« of k, »=Q. "'" """^ '■^"" °'' ^^ *"* ^"* succeeds for alt 

The length of the result R is 1=b. For ks1,2 m, Rk=S'k. 

13.1.14 Search 

Example: 

searches, C) 

d'S^n^e^^'^n'rmcs Vl/I."'""'"'''' """'■'" '"""*'"' "» «« "'«''" ""S""' 

S and C are converted to the character-strings S' and C 

The result R is a fixed-point, binary, real, value of precision (2t,0). 



I If S' is a null string 

be the lengf" 

if it occur 
If no charac 



?.».*K^i*.'e^^"8& " }-',^V°'' otherwise to determine the value of R, let n 

length of S'. f-or ksl,2 n, the kth character of S- is tested to see 

<!curs in c;. R is the first value of k for which the test succeeds : or 
haraoter of S* occurs in C, R is zero. su^-weeua, or 
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13-1-15 String 

Example: 

stringCS) 

S must be an arithmetic or string scalar value, or it must be an aggregate of 
string data suitable for use in string overlay defining as described in paragraph 

If S is a scalar, other than a bit-string, it is converted to a character-string 
S"; otherwise, let S' be S. 

The result R is a string whos* type and value are the type and value of S'. If 
S is an aggregate, the type of R is the type of the components of S', and the 
vsiue- of S IS the concatenation of all scalar components of S*. 



13.1.16 Substr 

Example: 

3ubstr(S,I,J) or substr<S,I) 

I and J -are converted to I' and J', where I' and J' are fixed-point, binary, 
real, values of precision(21,0) . 

If S is a bit-string, it is converted to a bit-string S'; otherwise, it is 
converted to a character-string S'. 

The result R is a string of the same type as S'. 

To determine the value of R, let i=I' and, if J is given, let i=J': otherwise, 
let j=n-i-(-1, where n is the length of S'. 

If (0<i-1<j+i-l<n) is not satisfied, the strlngrange condition occurs. Unless 
. detection of the condition has been enabled the program is in error and the 
results or continued- execution are undefined. 

If the- inequalities ar» satisfied, R is a string of length 1. The Icth character 
or bit of R is the- (i+k-1 JtJu character or bit of S'. 



1 3 • 1 . IT Translate- 

Example: 

translate(S,T) or translate(S,T,X) 

S, r and X are converted to the character-strings S', T' and X'. If X is I 
omitted, X' is the- value of collate9{). If T' is shorter than X' it is padded I 
on the^ right with blanks until, it is the length of X'. 

The- result R is a character-string of the length of S'. 

Let n be the length of S'. For k=1,2,...,n, determine Rk by the following: 

Let t be given by indexCX' ,S'k) . If 1=0, RksS'k; otherwise, Rk is the ith 
character of T*. 
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t3.1.18 Verify 

Example: 

verify(S,C) 
S and C are converted to the character-strings 3' and C 
The result R is a fixed-point, binary, real, value of precision (24,0). 



I If 3- i 
b 
i 
ev 



i thJ^JJ^lft^'^^t ^ l^.^V^' otherwise to determine the value of R, let n 
e the length of S'. For k=1,2,,..,n, the kth character of S' is tested to see 
f it occurs xn C. R is the first value of k for which the test fails; or if 
very character of S' occurs in C, R is zero. 'aiJ-s, or ir 



IS. 2 Arithmetic Built-in Functions 

?o*?h?*=o™mr„^''Vr»°V ='P«°^"'' function requires that its arguments be converted 
0? the in"?ro;er^?o; ""! '"' ™°'*' '"'^ ''^ -on.erte^ as if they were operands 

When the_^ description of a specific function requires that a single argument be 
o?"?h';'nrl?ir^.'^''*'.'= ^Pt' t^/>-8"'»«"t is converted as if it were an operand 
eonversiln! oP^^tor •>.'. Refer to Sections 7 and 3 for a discussion of 

Unless the description of a specific function states otherwise, the function can 
iL^aa^^ scalar or aggregate arguments. When invoked with one or more 

^!nl !! ?r r^""*" *' ^^^ arguments are promoted to the highest common aggregate 
type as if they were operands of an infix operator. Refer to Sections 7 and 9. 

^«!!i f """wh"" ^/ '*«««»"i''®<^ " operating on scalar values and yielding a scalar 
result. When given aggregate arguments, the function is applied to oorrespondins 
l^Vltl "Jf?!"*"!' °/ uu* P'*°'»°te<* aggregate arguments and produces the corresponding 
scalar component of the aggregate result. The order of evaluation of the scalar 
tvnr^"^^ ^' not defined. The result is an aggregate of the s^e aggre|ale 
type as the promoted aggregate arguments. BBregate 



13.2.1 Abs 
Exaaple: 

- Ml. . / v\ 

X must be an arithmetic or string value. 

Sara'graph'Ts*''*. ^"^ ^' ' """* ''^P*' ''^"' °'°"='* ^"'^ precision of X' are given in 

The result R has the type and base of X'. 

The- mode of R is real. 

If^the type of X' is fixed-point and the mode of X' is eomples, the precision of 

(ain(N,p-i-n,q} 

^n^T^" ^^'J\J^ the base of X- is binary and 59 if the base of X- is decimal, 
and (p,q) is the precision of X". ='-j.oiax. 
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otherwise, the precision of R is the precision of X*. 

If X' is complex, the value of R is the positive square root of x**2+y**2, where 
X and y are the real and imaginary parts of X'. 

If X' is real, the value of R is X' if X'>0; otherwise, it is -X'. 



13.2.2 Ml 

Example : 

add(X,3C,P) or add(X,r,P,Q) 

X and Y must be arithmetic or string values, and P and Q must be <decimal 
integer>s. Q may be signed. 

No conversion or promotion is performed for P or Q. X and Y are converted to X' 
and Y*, where the type, base and mode of X' and Y' are the common type, base and 
mode as defined in paragraph 13>2. 

If the Gonanon type is fixed-point and Q is not given, <J is assumed to be zero. 
If the common type is floating-point, Q must not be given. Q must be in the 
range -128lQi127. 

If the common base is decimal, let N be 59. If the coimnon base is binary and 
the common type is fixed-point, let N be 71. If the common base is binary and 
the common type is floating-point, let H be 63. P must be less than or equal to 
N. 

The result R has the commoa type, base and mode. 

If R is floating-point, its precision is (P); otherwise, it is (P,Q). 

The value of R is X'-^I».. 



13.2»3 Binary 

Example: 

binary(X) or binary(X,P) or binary(X,P,Q) 

X must be an arithmetic or string value, and P and Q must be <decimal integer>s. 
Q may be signed. 

No conversion or promotion is performed for P or Q. If P or P and Q are given, 
they are the precision of the result. If the result is floating-point, P cannot 
exceed 63; otherwise, P cannot exceed 71. If the result is floating-point, Q 
cannot be given. If P, but not Q, is given and the result type is fixed-point, 
Q is assumed to be zero. If given, Q must be in the range -128lQ<127. 

The result is formed by converting X to a binary arithmetic value according to 
the conversion rules given in paragraph 8.2. If P or P and Q are given they are 
the target precision; otherwise, the target precision is determined by the 
conversion rules' of paragraph. 3.2.10. 

The binary built-in function: has two names: binary and bin. 
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13.2.4 Cell 

Example: 

ceil(X) 

X must be an arithmetic or string value. 

X is converted to X'. The type, base, mode and precision of X' are given in 
paragraph 13.2. The mode of X' must be real. 

The result R has the type, base and mode of X'. 

■If the type of R. is fixed-point, the precision of R is: 

(min(N,max(p-q+1 , 1 )) ,0) 

where N is 71 if X' is binary and M is 59 if X' is decimal, and (p,q) is the 
precision of X' . 

If the type of R is floating-point, the precision of R is the precision of X'. 

The value of R is the smallest, integer >. X' . 

13.2.5 g9MPl?« 

Example: 

complex (X,Y) 

X and Y must be arithmetic or string values. 

X and 1 are converted to X' and I', where the type, base and mode of X' and Y' 
are the common type, base and mode as defined in paragraph 13.2. The common 
mode must be real. 

The result R is a complex value whose type and base are the common type and 
base . 

If the type of R is fixed-point, the precision of R is: 

( min ( a , max ( px-qx , py-qy ) *ws.x ( qx , qy ) ) , max ( qx , qy ) ) 

where N is 59 if the base of R is decimal and N is 71 if the base of R is 
binary, (px.qx) is the precision of X' and (py.qy) is the precision of Y'. 

If the type of R is floating-point, the precision of R is: 

min(N,max(px, py)) 

where px is the precision of X' and py is the precision of Y'. If the base of R 
is binary, N is 63; otherwise N is 59. 

The result R is a complex value whose real part is X' and whose imaginary part 
is Y'. 

The complex built-iir function has. two names: complex and cplx. 
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13.2.6 Conig 

Example : 

conjg(X) 

X must be an arithmetic or string value. 

X is converted to X'. The type, base, mode and precision of X' are given in 
paragraph 13.2. The mode of X' must be complex. 

The result R has the type, base, mode and precision of X'. 

The value of R is the conjugate of X'. The conjugate of a complex number is the 
complex number with the sign of its imaginary part reversed. 



13.2.7 Decimal 

Example: 

decimal(X) or decimal (X,P) or decimal (X,P,Q) 

X must be an arithmetic or string value, and P and Q must be <decimal integer>s. 
Q may be signed. 

No conversion or promotion is performed for P or Q. If P or P and Q are given, 
they are the precision of the result. P cannot exceed 59. If the result is 
floating-point, Q. cannot be given. If P, but not Q, is given and the result 
type is fixed-point, Q is assumed to be zero. If given, Q must be in the range 
-12b<QiT27. 

The result. Ls- fonssu by converting X to a. deoxsal arithmetic value according to 
the conversion rules given in paragraph 8.2» If P or P and Q are given, they 
are the target precision; otherwise, the target precision is determined by the 
conversion; rules: of paragraph 8.2. 

The decimal built-in function has two names: decimal and dec. 



13.2.8 Pi,Yi.«39 

Example: 

divide (X,r,P) or divide(X,Y,P,Q) 

X and 1 must be arithmetic or string values, and P and Q must be <decimal 
integer >3. Q may be- signed. 

No conversion or promotion is performed for P or Q. X and Y are converted to X' 
and Y', where the type, base and mode of X' and Y' are the common type, base and 
mode as defined in paragraph 13-2. 

If the common type is fixed-point and Q is not given, Q is assumed H^o be zero. 
If the common type is floating-point, Q. must not be given.. Q must be in the 
range -128<LC3i127. 

If the common base 1» decimal, let tt be 59. If the common base is binary and. 
the common type is fixed-point , let N be 7 1 » If the common base is binary and 
the common type Is floating-point,, let tl- be 63.. P must be less than or equal to 
U. 

The result R has the common type, base? and mode. The precision of R is (P,Q) or- 
(P). 
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hf JhJn°In^hLr''?w^''"® condition occurs. Unless detection of the condition 
lil Undefined P''og>'am is in error and the results of continued execution 

R is the value of X'/Y'. 



13.2.9 Fixed 

Example : 

fixed(X) or fixed(X,P) or fixed(X,P,Q) 

X must be an arithmetic or string value, and P and Q must be <decimal integer >s. 
(J may be signed. ° 

tio conversion or promotion is performed for P or Q. If P or P and Q are given 

^5®Lr?f''?h-^J!f«^?^°? °£-^^® result. If the result is decimal, P cannot exceed 
59 and if the result is binary, P cannot exceed 71. If P is given and Q is not, 
the precision of the result is (P,0). Q must be in the range -12a<Q< 127. 

The result is formed by converting X to a fixed-point arithmetic value according 
to the conversion rules given in paragraph 8.2. If P or P and Q are given, they 
are the target precision; otherwise, the target precision is determined by the 
conversion rules of paragraph 8.2. -^i u«xucu uy tne 

13.2.10 Float 

Example: -. 

float (X) or float (X,P) 

X must be an arithmetic or string value and P must be a <deGimal integer>. 

So conversion or promotion is performed for P. If the base of the result is 
binary, P must not exceed 63; otherwise, P must not exceed 59. 

J!!!«I!Hf!J^'' j:^ fr"*** ^^ converting X to a floating-point arithmetic value 
according to the conversion rules given in paragraph 8.2. If P is given it is 
the target precision; otherwise, the target precision is determined by th4 rules 



13.2.11 Floor 

Example: 

floor(X) 

X must be an arithmetic or string value, 

X is converted^ to X'. The type, base, mode and precision of X' are Kiven in 
paragraph 13.2. The mode of X' must be real, P^«''^«^°" °^ * ^'^^ S^^en i" 

The result R has the type, base and mode of X». 

If the type of R is fixed-point, the precision of R is: 

(min(N,max(p-q+r,1)),0) 
jSlcision of X^ ^" ^' ^^ binary and N is 59 if X' is decimal, and (p,q) is the 
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If the type of R is floating-point, the precision of R is the precision of X'. 
The value of R is the largest integer that is <. X'. 



13-2.12 Imag 

Example: 

imag(X) 

X must be an arithmetic or string value. 

X is converted to X', The type, base, mode and precision of X' are given in 
paragraph 13.2. The mode of X' must be complex. 

The result R has the type, base and precision of X' but its mode is real. 
The value of R is the imaginary part of X'. 



13.2.13 Max 

Example : 

max(XT,X2, ...,Xn) 

Each Xj must be an arithmetic or string value and n must be greater than 1 . 

Each XJ is converted to X»j, where X'j has the common type, base and mode of the 
given arguments. The commoa: mode must be real. 

The result R has the common type, base and mode. 

If the common type is fixed-point, the precision of R is: 

(min({|,max(p1-q1, . .. ,pn-qn)+- 
maxCql, . .. ,qn)) , max(q1 , . . . ,qn)) 

where N is 71 if the common base is binary and M is 59 if the common base is 
decimal. (pj,qj) is the precision of X'j. 

If the common type is floating-point, the precision of R is: 

max(p1,. ..,pn) 

where pj is the precision of X'j. 

The value of R is the maximum value of XM, X'2, ..., X'n, 



13.2.14 Min 

Example : 

min(X7,X2,...,Xn) 

Each XJ must be an arithmetia or string value and n must be greater than 1 . 

Baclt Xj is converted to X'j, where X'j has the common type, base and mode of the 
given arguments. The common mode must be real. 
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The result R has the common type, base and mode. 

If the common type is fixed-point, the precision of R is: 

(min(N,max(p1-q1,...,pn-qn)+ 
max(q1, . ..,qn)), max(q1 , . . . ,qn) ) 

where N is 71 if the common base is binary and N is 59 if the common base is 
decimal. (pj.qj) is the precision of X'J. common Dase is 

If the common type is floating-point, the precision of R is: 

max ( p 1 , . . . , pn ) 
where pj is the precision of X'j. 
The value of R is the minimum value of X'1, X'2, ..., X'n, 

13.2.15 Mod 

Example : 

mod(X,Y) 

X and Y must be arithmetic or string values. 

Ll'^'^^l ^"^ ^oti^erted to X' and Y', where the type, base and mode of X- and Y' 
mode mllst bS™eSl!^^^' ^""^ "'°'^° " described in paragraph 13.2. The common 

The result R has the common type, base and mode. 

If the common type is fixed-point, the precision of R is: 

(min(N,py-qy+max(qx,qy)),max(qx,qy)) 

' a'IZ'^Z^'-^ "/' ' " -"° ^^i-ui- wu uaoc ia oinary ana h is jy if the common base is 
decimal. (px,qx) is the precision of X' and (py,qy) is the precision of Y'. 

If the common type is floating-point, the precision of R is: 
max(px,py) 

where px is the precision of X' and py is the precision of Y'. 
If Y' = 0, R is X'; otherwise, R is X'-Y'*floor(X'/Y' ) . 

13.2.16 Multiply 

Example : 

multiply (X,Y,P) or multiply(X,Y,P,Q) 

fni-f^Ls- "a^*^ ^t arithmetic or string values, and P and Q must be <deeimal 
integer>s. Q may be signed. 

No conversion or promotion is performed for P or Q. X and Y are converted to X' 

™«L ' !I^r® ! f *^P®' ^^^^ ^°*^ '"°**® °^ ^' a"** ^' are the common type, base and 
mode as defined in paragraph 13.2. 

If the common type is fixed-point and Q is not given, Q is assumed to be zero. 

Ax the comnon fcvne is f>ina4-'in<T-nm-in4. n —..-1. __^ v- _j- - 

range -12'8<Q<127 "' — -— — -o-h---"-, -u muou um. o« gxven. y muse oe m tne 
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ILt^l the common base is decimal, let N be 59. If the the common base is 
Mn^nv »n^ .h °°™°? ^^^^ IS f ixed-point , let N be 71. If the common base is 
or IqLl toT. °" ^^^ ^^ floating-point, let N be 63. P must be less than 

The result R has the common type, base and mode. The precision of R is (P,Q) or 

The value of R is X'*Y'. 



13.2.17 Precision 

Example : 

preGision(X,P) or preoi3ion(X,P,Q) 

Q Safbe^iiitS"*'"®''^" "'* ^^""^"^ ''*^"^' ^°^ ^ ^"^ ^ """^^ ^^ «lecimal integer>s. 
No conversion or promotion is performed for P or Q. 

dete'^min^nriolloSs:''' "*^''*' ''" ^'"'^ base, mode and precision of X- are 
If X is arithmetic the type, base and mode- of X' are the type, base and mode of 

and the'mode1r?ea!:"''^'°'' '"" '''''' "' "' '^ ^ixed-point, the base is decimal 
iode is ^eai!"^*"*^"*' ""^^ ^^^^.^ X' is fixed-point, the base is binary and the 

JSintr^r^^^"" °^ ^' ^^ ^^'''^ ^^ ^' ^^ ^^^^'^ P°^°*'' ^""^ " P i^ X- is floating 

m5J^K '^yP®,?^ ^' is fixed-point and Q is not given, Q is assumed to be zero 
Se giSen''' ""^"^^ -128lQ<127. If the type Sf X''is floating-Joint, Qcanno? 

If the base of X» is decimal, P cannot greater than 59. If the base of X' is 
Jv^rif^x^ fw?^^^/^ fixed-point. P cannot be greater than 71; wSue if tH 
type of X' is floating-point, P cannot be greater than 63. 

The result R has the type, base, mode and precision of X'. 

The value of R is the value of X'. 

The precision built-in function has two names: precision and prec. 

13.2.18 Real 

Exapjle : 

real(X) 

X must ber an arithmetic or string value. 

X is- converted to X', where the type, base, mode and precision of X' are iriven 
in paragraph 13.2. The mode of X' must be complex. ««^3ion or i are given 
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The result R has the type, base and precision of X' but its mode is real. 
The value of R is the real part of X'. 



13.2.19 Round 

Example: 

round(X,K) 

X must be an arithmetic or string value, and K must be an optionally signed 
<decimal integer>. ■' * . 

No conversion or promotion is performed for K. X is converted to X' where the 
type, base, mode and precision of X' are given in paragraph 13.2. 

The result R has the type, base and mode of X'. 

If X' is fixed-point, the precision of R is: 

(max(1,min(p-q+1+K,N)),K) 

where N is 71 if the base of X' is binary and N is 59 if the base of X' is 
decimal, and (p,q) is the precision of X'. 

If X' is floating-point, K must be greater than zero, and the precision of R is: 

(min(K,N)) 
where N is 59 if X' is decimal and N is 63 if X' is binary. 
The value of H is: ^ 

3ign(X')»floor(abs(X')»(b»«n)+0.5)/(b»*n) 

where b is 2 if the base of X' is binary, and b is 10 if the base of X' is 
decimal. If the type of X' is fixed-point, n=iC; otherwise, n=K-e, where e is 
the exponent of X'. 

If the mode of X' is complex, H is the value of X' with its real and imaginary 
parts rounded as described above for real numbers. 

13.2.20 Sign 

Example : 

sign(X) 

X must be an arithmetic or string value. 

X is converted to X', where the type, base, mode and precision of X' are given 
m paragraph 13.2. The mode of X' must be real. 

The result H is a. fixed-point, binary, real value of precision (17,0). 

If X' < 0, the value of H is -1. 

If X'. = 0, the value of R is 0. 

If X' > 0, the value of R is +1. 
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13.2.21 Subtract 



Exanpl«: 

5ubtract(X,Y.P) or subtract(X,Y,P,Q) 

L ^'?** /, ?"'^ .*** arithmetic or string values, and P and Q must- be 
<decimal integer >s. Q may be signed. 

No conversion or promotion is performed for P or Q. X and Y are converted to X' 
and Y , where the type, base, and mode of X' and Y' are the common type, base 
and mode as defined in paragraph 13.2. 

If the conunon type is fixed-point and Q is not given, Q is assumed to be zero. 

ILll^ ^oS^n^io^* ^^ floating-point then Q must not be given. Q must be in the 
range — i28_<C}<^i27 . 

If the common base is decimal, let M be 59. If the common base is binary and 
the common type is fixed-point, let N be 71, If the common base is binary and 
the common type is floating-point, let N be 63. P must be less than or equal to 

n • 

The result R has the coimnon type, base and mode. The precision of R is {P,Q) or 
The value of R is X'-Y'. 



13.2.22 Trunc 

Example: 

trunc(X) ^-- 

X must be- an arithmetic or string value. 

X is converted^to X', where the tyjie, base, mode and precision of X' are given 
in paragraph 13.2. The mode of X' must be real. 

The type, base and mode of the result R are the type, base and mode of X'. 
If the type of X' is fixed-point, the precision of R is: 
(min( H ,max( p-q*l , 1 ) ) , 0) 

JJecision'orx'^^' ^* ""^''^ ^"* ** ^'^^^^ *' ^'' '*"^"'^' ^""^ ^"'^'^ ^* ^^* 

If the type of X' is floating-point, the precision of R is the precision of X'. 
If X' < 0, the value of H is ceil(X'). 
If X' X 0, the value of R is floor(X'). 

■•3.3 The Mathematical Built-in Functions 

All arguments: to mathematical built-in functions must be^ arithmetic or strina 
values. They are converted, to floating-point values a^ describe* below: 

Let X be th» argument and let X» be the converted argument. 
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If X is a bit-string, X* is a real binary floating-point value of precision 63. 
If X is a character-string, X' is a real decimal floating-point value of 
precision 59. 

If X is floating-point, X' has the base, mode and precision of X. 

If X is fixed-point, X' has the base and mode of X, but its precision is: 

min(N,p) 

where p is the precision of X, and N is 59 if X' is decimal or N is 63 if X* is 
binary. 

The result R is a floating-point value that has the base, mode and precision of 

If the built-in function has two arguments, X and Y, convert them as above to X' 
and Y'. In addition, if one of the converted arguments is decimal and the other 
binary, convert the decimal argument to binary. Let p be the precision of X' 
and r be the precision of Y'; then the result R has the common base and mode of 
X' and Y' and the precision max{p,r). 

The mathematical built-in functions of Multics PL/I are designed to produce 
accurate results for binary arguments. If the converted argument X' is decimal, 
it is converted to binary and its precision is set to 63 binary digits. The 
function is evaluated and the result is converted back to decimal. If the 
precision of X' was greater than 21, the accuracy of the result will be 
approximately 20 decimal digits. 

Unless the description of a specific function states otherwise, the function can 
be invoked with scalar or aggregate arguments. When invoked with one or more 
aggregate arguments, all arguments are promoted to the highest common aggregate 
type as if they were operands of an infix operator. Refer to Sections 7 and 9. 

Each function is described as operating on scalar values and yielding a scalar 
result. When given aggregate arguments, the function is applied to 
corresponding scalar components of the promoted aggregate arguments and produces 
the corresponding scalar component of the aggregate result. The order of 
evaluation of the scalar components is not defined^ The result is an a<"'re<'ate 
of the same aggregate type as" the promoted aggregate argument. 

The table below lists all of the mathematical built-in functions and gives the 
error conditions and value returned by each function. If one or more of the 
listed error conditions occurs during the evaluation of one of the functions, 
the error condition is signalled. Mote that other computational conditions may 
also be signalled as described in Section 10. 

When reading the table, let a complex argument X be defined as Y1+i*Y2. 
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Function 
Reference 



TABLE OF MATHEMATICAL BUILT-IN FUNCTIONS 



Argunent Value^ 
Mode Returned 



Error 
Conditions 



acos(x) 



real areeos in radians 

0<acos(x)<pi 



x>1 
x<-1 



asinCx) 



real arcsin in radians 

-( pi/2 )<asin(x)<( pi/2) 



x>1 

x<-1 



atan(x) 



real 
consplex 
both real 



arctan(x) in radians 
-( pi/2 )<atan(x)<( pi/2) 
-i»atanh(i*x) 



•li 



atan(y,x) 



for x>0 arctan(y/x) 

for y>0 & x=0 pi/2 

for y>0 & x<0 pi+arctan(y/x) 

for y<0 & x=0 -pi/2 

for y<0 4 x<0 -pi+arctan(y/x) 



x=ysO 



atand(x) 


real 


arctan(x) in degrees 
-90<atand(x)<90 


- 


atand(y,x) 


both real 


(l80/pi)*atan(y,x) 


x=y=0 


atanh(x) 


real 
complex 


arctanhCx) 
(Iog((1+x)/(1-x)))/2 


!xi>1 
x=+T 


cos(x) 

X in radians 


real 


cosine<x) 


- 




complex 


cosine(yl)»co3ineh(y2) 
-i*3ine(y1)»sineh(y2) 


- 


cosd(x) 

X in degrees 


real 


coaine(x) 


- 



cosh(x) 



erf{x) 



real cosineh(x) 
complex cosineh( y 1 ) »cosine( y2 ) 
+i»sineh(y1)»sine(y2> 



real 






erfc(x) 



reaL 



*7 

1 - erf(x) 



exp(x) 
log(x) 



real 
complex 



e»»x 

e**x 



real 
complex 



ln(x) 
ln(x) = M 
where w = u-t-t*v 
and -pl<v<pr 



loglO(x) 



log2(x) 



sln(r) 

r In- radlanas 



real log base- 10 of x. 

real- Ior base 2 of x 

real sin«( x) 

coaplex siire( y1 ) •coaineh( y2) 

■►l»coaine( y1 ) •slneh( y2) 



x<0 

x=0 



x<0 

x<a 



sind(r) 

r in degrees 



real. 



sine(x) 
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»inh(x) real alnehCx) 

complex aineh(yl)»coalne(y2) 
__ ♦i*eosineh<y1)»3ine(y2) 

sqrt ( X ) real Jk ;<3' 

complex -/x = w 

where w = u-»'t*v 
and either u>0, or 
usO and v^O 

*3n(x) real tangent(x) I" 

i^ in radiana- 

complex tangent(x} 

tand(x) real tangent(x) 1° 

x^ in degreea 

tanh(x) real hyperbolic ""I" 

tangent of x 
complex hyperbolic 

tangent of x 
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IS.** The Array Built-in Functions 



13.4,1 Dimension 

Example: 

dimension(X,N} 

X must be an array value and N must be a scalar arithmetic or string value. 

N is converted to N ' , where N' is a fixed-point, binary, real, value of 
precision (17,0). 

The program is in error if X has less than M' dimensions, or if N' is less than 
one. 

The result R is a fixed-point, binary, real, value of precision (24,0) whose 
value is the number of elements in the N'th dimension of X. 

The dimension built-in function has two names: dimension and dim. 



T3.4.2 Dot 

Example: 

dot(X,Y,P) or dot(X,Y,P,0) 

X and Y must be one dimensional arrays of arithmetic or string values, and P and 
Q must be <decimal integer>3. Q may be- signed. 

X and Y are converted to X' and Y", where X' and Y' are the common type, base 
and mode as defined in paragraph 13.2. The precision of X' and Y' is (P) op 
(P.Q). 

J.!. ui<€ CCuUSCiS ><yp€ x3 t x abu— pCxiit, aiiu w IS iiot glveti, Q la asSuined to be zero. 
Q must be in the range -128<Q<127. If the common base is decimal, let N be 59. 
If the common base is binary~and the common type is fixed-point, let N be 71. 
If the common base is binary and the common type is floating-point, let N be 63. 
P must be less than or equal to N . 

The result R is a scalar arithmetic value whose type, base, mode and precision 
are the type, base, mode and precision of X'. 

The value of R is: 

n 
T~ X'[i]«Y'[r-m*l] 

isn 

where Cm:n] are the bounds of X* and [r:s] are the bounds of Y'. The program is 
in error if n-a<^1 d s-r+l. 



13.*. 3 Hbound 

Example: 

hbound (X,N} 
X must be an array value' and N must be a scalar arithmetic or string value. 
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N is converted to N', where H' is a fixed-point, binary, real, value of 
precision (24,0). 

The program is in error if X has less than N' dimensions, or if N' is less than 
one. 

The result R is a fixed-point, binary, real, value of precision (24,0) whose 
value is the upper bound of the N'th dimension of X- 



13.4.4 Lbound 

Example : 

lbound(X,N) 

X must be an array value and N must be a scalar arithmetic or string value. 

tJ is converted to IS', where M' is a fixed-point, binary, real, value of 
precision (24,0). 

The program is in error- if X has less than N' dimensions, or if N' is less than 
one. 

The result R is a fixed-point, binary, real, value of precision (24,0) whose 
value is the lower bound of the N'th dimension of X- 



13.4.5 Prod 

Example: 

prod(X) 

X must be an array of arithmetic or string values. 

X is converted to X' as if it was an operand of the prefix operator "+". If X' 
is a fixed-point value with precision (p,0) it is converted to a fixed-point 
value, I, of the same base and mode, but with precision (N,0), where N is 71 if 
the base is binary and N is 59 if the base ia decimal. 

If X' is not a fixed-point value of precision (p,0) it is converted to a 
floating-point value Y, that has the base and mode of X'. The precision of Y is 
min(N,p}, where N is 59 if X' is decimal or N is 63 if X' if binary. 

The result R is an arithmetic scalar whose type, base, mode, and precision are 
those of Y. 

The value- of R is: 

X(1)' * X(2)' * ... • X(n)' 



13.4.6 Sua 

Examples 

sum(X) 
X must b». an array oC arithmetic or string, values. 
X; is: converted to X' as^ if it was an operand of the; prefix operator "+" . 
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The result R is an arithmetic scalar value whose type, base and mode are the 
type, base and mode of X'. 

If X' is fixed-point of precision (p,q), the precision of R is (N,q), where N is 
71 if the base of R is binary and N is 59 if the base of R is decimal. 

If X' is floating-point, the precision of R is the precision of X'. 

The value of R is: 

X(1)' + X(2)' + ... + X(n)' 



13.5 Condition Built-in Functions 

The condition built-in functions access values that are set by the signalling of 
certain conditions. They are best understood if they are considered external 
controlled variables that are allocated and assigned values by the signalling of 
a condition. 

When one of the conditions that sets the value of a condition built-in function 
is signalled, the old value of the function is stacked or pushed down until 
control returns to the point where the signal was made. Control is considered 
to have returned if the <on unit> entered by the signal returns to the block 
activation making the signal, or to any of its dynamic predecessors. 

The effect of this mechanism is to properly stack the values of these built-in 
functions. For example, if the conversion condition occurs in an <on unit> 
entered by a signal of the conversion condition, the values of "onchar" and 
"onsource" are stacked and the condition is signalled again. On return from the 
second activation of the <on unlt>, the old values of "onchar" and "onsource" 
are restored and the execution of the first activation of the <on unit> is 
resumed . 

Since the initial value of each of these functions is a null-string, except for 
"onchar" which is a blank, and "oncode" which is zero, these are the values 
returned by the functions when they are invoked by a block activation that is 
not an <on unit> or a dynamic descendent of an <on unit> whose signal set the 
value . 



13.5.1 Qnchar 

Example : 

onchar () or onchar 

The value returned by this function is a single character set by the occurrence 
of the conversion condition as described in paragraph 10.4.2, or is a blank. 



13-5.2 2aS2d£ 

Example : 

oncode (} or oncode 

The value returned by this function is a fixed-point, binary, real number of 
precision (17,0). The value indicates the ^ reason why the condition was 
signalled. Because the run-time subroutines that support the execution of PL/I 
programs are subject to modification and improvement, the list of error ood& 
values is subject to change and is not published in this document. If a program 
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is expected to run on other implementations of PL/I or on future versions of 
Multics PL/I, the program logic must not depend on the valye returned by this 
built-in function. 



13-5.3 Qnfleld 

Example : 

onfieid{) or onfield 

The value returned by this function is a character-string set by the occurrence 
of the name condition as described in paragraph 10. 4. a, or is a null string. 



13.5.4 Onfile 

Example: 

onfileO or onfile 

The value returned by this function is the filename for which the conversion, 
name, endfile, transmit, record, key, endpage, or undef inedfile condition was 
signalled, as described in Section 10, or is a null string. 



13.5.5 Unkev 

Example : 

onkey( ) or onkey 

The value returned by this function is the character-string key of the record 
for which the^ endfile, transmit, record or key condition was signalled, as 
described in Section 10, or is a null string. 



13.5.6 Qnloc 

Example: 

onlocO or onloc 

The value returned by this function is a character-string that identifies the 
entry point used to enter the most recent <procedure> bloek activation that is a 
dynamic predecessor of the most recent <on unit> activation. If no <on unit> 
activation exists, the function returns a null string. 



13.5.7 Onsource 

Example: 

onsource() op onsource 

The value returned by this function is the value set by the occurrence of the 
conversion condition as described in paragraph 10. 4. 2, or is a null string. 
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13.6 Miscellaneous Built-in Functions 



13.6.1 Addr 



Example: 

acldr(X) 

X must be a <referenGe> to a variable whose storage is connected, as described 
in paragraph 4.3.1.3. 

If X is a <3imple reference> that identifies an unallocated, level-one, 
controlled variable, the result is a null pointer; otherwise, the result is a 
scalar pointer that identifies the generation of storage referenced by X. In 
the latter case, the evaluation of X must yield a generation of storage. 



13.6.2 Addrel 

Example; 

addrel(X,I) 

Addrel is a nonstandard built-in function and its use makes programs dependent 
on the data representation of Multics PL/I. 

X must be a scalar pointer value and I is converted to I'. If I is a 
bit-string, I ' is a scalar bit-string of length 18; otherwise I' is a scalar 
fixed-point, binary, real value of precision (18,0). 

The result R is a scalar pointer value whose ring number and segment number are 
the ring and segment numbers of X and whose word offset is given by the sum of 
the word offset of X and the value of I. The bit offset of R is zero. 



13.6.3 Allocation 

Example: 

allocation(X) 

X must be a <reference> to a level-one controlled variable. 

The result R is a scalar, binary, fixed-point, real number of precision (17,0). 

The value of R is the number of generations of X currently allocated. If no 
generations are allocated, the value of R is zero. 

The allocation built-in function has two names: allocation and allocn. 

13.6.4 Baseno 

Example: 

baseno(X) 

Baseno is a nonstandard built-in function and its use makes programs dependent 
on the representation of pointer values in Multics i^L/I. 
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X must be a scalar pointer value. 

The result R is a bit-string of length 18 whose value is the bit-strin<7 
representation of the segment number part of X. bit-string 

13.5.5 Baseptr 

Example: 

baseptr(I) 

Baseptr is a nonstandard built-in function and its use makes programs deoendent 
on the representation of pointer values in Multics PL/I. P'-ogfams dependent 

?8-^ l^tZtT." T? ^'- ^^ ^^' ^ bit-string, J. is a scalar bit-string of length 
(?8.0? ^ '' ' '^'^"^' fi^«<^-P°i"t, binary, real value of^ precision 

The result R is a scalar pointer value whose ring number is the current rina 
whose segment number is I, and whose offsets are zero. current ring, 

13.6.5a Clock 

Example: 

clock or clockO 

MuUios'pL/??"^'^""^'''' built-in function and its use makes programs dependent on 

The result R is a fixed-point, binary, real value of precision (71,0). 

Grienwich iLl ILT," """"'' '' microseconds since 0000 hours January 1, 1901, 

13.6.5b Codeptr 

Example: 

codeptr(X) 

on'MSuics ?Jj;'^*^"<^^'-^ '^"ilt-in function and its use makes programs dependent 
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13.6.6 Convert 

Example : 

convertCX.Y) 

Convert is a nonstandard built-in function. 

X must be a <reference> to a scalar variable and Y must be a scalar value. 

Y IS converted to Y', where the data type of Y' is the data type of X, and the 
value of Y' is the value of Y converted according to the rules for conversion 
given in Section 8. 

The result R has the data type and value of Y'. 

13.6.6a Currentsize 

Example: 

currentsize(X) 

Currentsize is a nonstandard built-in function and its use makes programs 
dependent on the internal representation of data in Multics PL/I. 

X must be an unsubscripted <reference> to a level-one variable. 

The result is a fixed-point, binary, real number of precision (19,0) whose value 
is the number of 36-bit words occupied by the generation of storage obtained by 
evaluating the reference X. Note that when X is a reference to a based variable 
with <refer option>s, this function returns a value that depends on the 
<reference> contained in the <refer option>, not on the <expression> in the 
<extent expression>. 



13.6.7 Date 

Example: 

dateO or date 
The result R is a character-string of length 6. 
The value of R is: 

YYMMDD 
where YY is the year, MM is the month, and DD is the day. 

13. 6. 8 Empty 

Example: 

emptyO or empty 
The result R is an empty area value. 
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13.6.3a Environmentptr 

Example: 

environmentptr(X) 

'^pend^ron^'Sulifcs pj?;!^^"^-^ '^''^''^ ^-''"o" and its use ma.es programs 
recSrf^oLtlP TfV.' '"'"'' °'" '^'•""^ ^^^"«- ^'^^ ''""^^ « " the activation 

13.6,9 Lineno 

Example: 

lineno(X) 
X must be a scalar file value. 

prograr!s"in eJrSr!''' '" °'^" "le-state block with the <print attribute>, the 
The result R is a scalar, fixed-point, binary, real number of precision (35,0). 
The value of R is the linenumber of the file-state block identified by X. 

13.6.10 Hull 

Example: 

nulK) or null 
The result is a null pointer value. 

13.6.11 Nullo 

Example: 

nulloO or nullo 
Nullo is a nonstandard built-in function. 
The result is a null offset value. 
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13.6.12 Offset 

Example: 

offset(X,Y) 
X and Y must be scalar values. X must be a pointer value and Y must be an area 

V 3XIJ6 a 

Unless X identifies a generation of storage within Y, the program is in error. 

The result R is an offset value that identifies the generation of storage 
Identified by X. 
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13.6. 13 Pageno 

Example: 

pageno(X) 
X must be a scalar file value. 

IrolrTlsTn UrT/'"" ''"" f He-state block with the <print attribute> the 
The result R is a scalar, fixed-point, binary, real number of precision (35,0). 
The value of R is the pagenumber of the file-state block identified by X. 

13.6.14 Pointer 

Example: 

pointer(X,y) 

^^•^•'''*''' The Standard Definition of Pointer 

X must be a scalar offset value and Y must be a scalar area value. 

Unless X identifies a generation of storage within Y, the program is in error. 

I5Lti??ef by i! ' -'°"'^^. "'"'' '''''' identifies the generation of storage 



13.6.14.2 The Nonstandard Definition of Point 



er 



fxxed-point, binary, real value of precision (18,0)! f^^'-^se, is a scalar, 
The pointer built-in function has two names: pointer and ptr. 
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13.6.15 Hel 

Example : 

rel(X) 

Rel is a nonstandard built-in function and its use makes programs depend on the 
representation of pointer values in Multics PL/I. 

X must be a scalar pointer value. 

The result h is a bit-string of length 10 whose value is the word offset portion 
of X. 



13-6.16 Size 

Example: 

size(X) 

Size is a nonstandard built-in function and its use makes programs depend on the 
internal representation of data in Multics PL/I. 

X must be a <simple reference> to a level-one variable. 

The result is a fixed-point, binary, real number of precision (24,0) whose value 
is the number of 36 bit words necessary to allocate a generation of storage for 
X. Note that when X is a based variable with <refer option>s, this function 
returns a value that depends on the <expression> contained in the <extent 
expression>, not on the <reference> contained in the <refer option>. 



13,6=17 Stac 

Example: 

stac(X,Y) 

Stac is a nonstandard built-in function and its use makes programs depend on the 
Multics hardware. Coordination of Multics processes should be done by calls to 
Multics locking primitives as described in the "Multics Programmers' Manual". 

X must be a scalar pointer value and Y must be a scalar bit-string of length 36. 

If the 36 bit word addressed by the pointer is zero, the value of Y is assigned 
to that word; otherwise, no .assignment is made. 

The result R is a bit-string of length 1. 

If the assignment of Y to the location identified by X was made, the value of R 
is "1"b; otherwise, it is "0"b. 

The testing of X and the assignment of Y to X is an indivisible operation of the 
Multics hardware. 
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13.6.17a Stacq 

Example: 

stacq(L,A,Q) 

Stacq is a nonstandard built-in function and its use makes programs dependent on 
Multics PL/I. 

L must be a <reference> to an aligned scalar bit-string variable of length 36 
A and Q must be bit-strings of length less than or equal to 36. The result R is 
a bit-string of length 1. . 

If L equals Q, the value of A is assigned to L, and the value of R is "1"b- 
otherwise, no assignment is made and the value of R is "0"b. ' 

The testing for equality between L and Q and the conditional assignment of A to 
L IS an indivisible operation of the Multics hardware; refer to the description 
of the stacq instruction in the Multics Processor Manual , Order No. AL3g. 

13.6.17b Stackbaseptr 

Example: 

stackbaseptr () or stackbaseptr 

Stackbaseptr is a nonstandard built-in function and its use makes programs 
dependent on Multics PL/I. u- ^&. am:^ 

Stackbaseptr returns a pointer to the base of the current <block>'s stack 
segment. o>-Q^-n. 



13.6.17c Stackframeptr 

Example: 

stackframeptr () or stackframeptr 

d'epen5enT^rM;!t?cs"p[/l!"''"' '"'''-'" '""^'^°" ^"^ ''' ^^ -^- P-^— 
lllTrTlTlTe currenr<?lo?k>!''' '° ''" ^'^^' '^^^^ containing the activation 

13.6.18 Time 

Example: 

timeO or time 

The value returned by the function is a character-string of length 12 whose 
value is: 

HHMMSSFFFFFF 

tS%q.""iH RPRr??""^' II ^°-^^' "" '" ^^^ '"'""^^' °° ^° 59; SS is the second, 00 
to by; and FFFFFF is the microsecond, 000000 to 999999. 
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13.6.19 Unspec 

Example: 

unspec(X) 

X must be a <refer=nce>. to a variable. 

The result R is a bit-string whose length and value depend on the data type 
aggregate type, and value of X. The value of R is the internal representation 

01 A • 



13.6.20 Valid 

Example: 

valid(X) 

X must be a <reference> to a scalar pictured value. 

The result R is a bit-string of length 1. Its value is "T'b if the 
character-string value of X can be edited into the <picture> declared for X- 
otherwise, the value of R is "0"b. ' 

13.6.20a Vclock 

Example: 

vclock or vclockO 

Vclock is a nonstandard built-in function and its use makes programs dependent 
on Multics PL/I. 

The result R is a fixed-point, binary, real value of precision (71,0). 

The value of R is the number of microseconds of virtual CPU time used by the 
calling process. 
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APPENDIX A 
Differences Between HuXties PL/I and Standard PL/I 



th. J»!f.^'"'rf^^'' \^'^' ^^^ '"'°''" <*«'iati°ns of the Multios PL/I language from 
March! iglu '^*'^"=^ Standard Programming Language PL/I. ANSI X3.53-1976: a^of 



con 



Features of the Standard Not in Multios PL/I: 

1. The tab option and tab format item. 

2. The "t", »1", and "r" picture characters. 

3. The every and some built-in functions. 

Features Restricted in Multics PL/I: 

1. Only one <prefix subscript) is permitted in a <label prefix>. 

^* .I^L'^Hfrfi^i"" "h?!?^ defined by the language are reserved such that a 
oindition? =°"1"i°" "cannot have the same name as a language defined 

3. A <oondition name> cannot have internal scope. 

1. The <extent>s of static variables must be <decinal integer>s, and the 
<expre3sion>s in the <initial attribute) of :, ,<-=m. „,,;,k ". z!!! 
restricted to optionally signed <literal constant>s,'pair3 of Veal and 
funltions '*"*** ^literal constant>s, or the null and empty built-in 

Jf«J=V^^^ *■"■*"*? °*' ^ <P-o=«<S"'-e statement), <entry statement), or 
<format statement) cannot contain a <prefix subscript). 

The string built-in function requires that its argument be a scalar, 
or an aggregate of packed bit-string or packed character-string data. 

The alignment attributes of two structures must match if the two structures 
are to share storage. 

^* of'^the^statOTent''*"''*' °^ ^ statement must precede any <label prefix)s 

9. An area variable cannot be used as the <index) of a <do statement). 



5. 
6. 

7. 



I 



trol%;|^'e"„%"o;\;^T/l "rmmal.d!"'' ' * ''' ""' ^'^"''"^ "^ ''^ -check_ansi 
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10. Defined variables whose <defined attribute) contains <isub>3 or asterisks 

^^-2?^. i"?"'^.?'" °"tP"t by a <get statement) or <put statement) that 
specifies data-directed transmission. 

11. File constants cannot have the <dinension attribute). 

^^' f5 '^iJf^Jsxpression) of an <assignment statement) is a <reference) that 
identifies a scalar string variable, then no <target) of the 
<assignment statement) can identify a generation of storage that overlaps 
the generation of storage of the string variable, unless it is exactly 
the same generation or unless the generation of the <target> does not 
start to the right of the generation of the string variable. 

13. An unconnected array cannot be passed to an array parameter declared 
with constant extents; asterisk extents must be used. 

1«. When an array is defined onto another array by simple defining, the 
<base reference) must contain an asterisk for each dimension of the 
defined array. 

15. The pointer value yielded by "addr" of a parameter is valid only so 
long as the block activation to which the corresponding argument was 
passed is still active. 

The standard allows an array of scalars to be promoted to an array of 
structures, but Multios PL/I does not allow this promotion. 

A simple or isub defined variable must have extents that equal the 
corresponding extents of the base variable on which it is defined. 
The standard allows such extents to be less than or equal to the 
extents of the base variable. 



16. 
17. 

18. 

19. 
20. 



It f'*'"l|<'ture promotion of the form 3=r or s+r, Multics PL/I requires 
that the aggregate type of each member of s match the aggregate type 
of the corresponding member of r. The standard performs aggregate 
promotion for each member that does not match. 

The dot built-in function requires that the precision of its result be 
given in the function reference. 

Both the <ignore option) and a <key spec) cannot be given in the same 
<read statement). 



21. If a completed Ottribute set) contains a <position attribute), that 
<position attribute) must contain a <position). The standard has a 
systen default of 1. 

22. The mi n and max built-in functions must have at least two arguments; 
the standard allows them to have one argument, 

23. If an iteui Has the <paraiiieter attribute) or is part of a <descriptor) 
the <extent expression) must be an unsigned <deciBal integer). 

Features loplenented at Variance with the Standard: 

^*'*i. "^^u"^***' °*" ^" «i'aluated array expression are always normalized 
sucn that each lower <bound) is one and each upper <bound> is the 
number of elements in the dimension. 

A mismatch between the alignment attributes of a structure and a structure 
parameter descriptor causes the argument to be passed by- value, rather 
than by-reference. The standard ignores the alignment attributes of 
structures. 



♦ 1. 



3/81 A-2 AG94E 



Extensions: 

1. An <ldentifier> can contain the special character -$" and in the case 
of external names, this character has additional semantics. 

2. Varying strings can be used in simple or isub defining. 

'' J^rilir*. ''^''""' identified by a <defined attribute> can be a based 

♦ 1. Host restrictions on the <refer option> are removed. 

5. Ssversl new built-in functions are implemented. 

6. The <local attribute) is allowed in all <deseriptor>s. 

* 8. Mew records can be written into a keyed sequential update fil« fTh- 

locate statement may be used for this purpose.) ^ * 

dlta^d1rLt\"l'i'„'Ju1. ^*^«--" -« ^^^-^'^ in "ream input scanned by 

reneVa-tir^f'st^o^agralTo^c^t^d^ i^ a^ a^.^eT ""^°*"" '"^" ^'"^^^"^ ^ 
The "recursive- keyword is never required in a <procedure statement). 
I^lumentir '"''"'°' "" ""'""= built-in function allow aggregate 

13. Assignments and infix operations can be performed on two arrava af 
Of elementsTn eih hi" "T^'' °' ^^''"'i"- i' -Qual and%heTmber 
:rem%^\Tf: 4VcrreVp"oSg"dlLn:!on^7^4%Te1.\^r°ra^y^" ^'^ ^ 

<noraal picture) produced by tranilation'of the <pictu;l;^ " '"" 
^*..''i^°**i**°i^'"*** ""'' '^*'« <environment attribute) will acauire th* 

♦ 16. Multics PL/I allows a <column format) to be used by a <aet stat«n,»ni-^ 
or <put statement) containing a <string option). * statement) 

^f^r^JLrJw'' i» P^"«<1 " a" argument to an array parameter which has 

^s^r-error'^X'tfc", P?/?'^,''"'';^"" standard slys that the program 
whose Annlrt's. y} ^"15"S the argument to an array temporary 
whose <bound>s are equal to the <bound>s of the array parameter. 



* 9 

+ 10 

+ tr 
12 



14. 



15. 



17. 
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* 18. A <picture scale faetor> is allowed for floating-point <pietupe>3. 

19. The <redueible attribute) and <irredueible attribute>s are allowed. 

+ 20. No delimiter is required between the keywords "picture" or "pic" and 
the quoted <picture> in a <pioture attribute). No delimiter is required 
between the letter "p" and the quoted <pioture> in a <picture format). 

21. Any data type except area is allowed in put list and put data. 

* 22. ASCII tab characters in an input data stream get special treatment. 

23. The <optlons attribute) with the parenthesized keyword "constant" 
specified may be used with any computational variable containing the 
<statlc attribute) and the <internal attribute). 

2t, <default statement>s may appear in any block. 

+ 25. A <return3 attribute) of the form returns () is permitted. (Of course 
<returns deseriptor)3 must then be supplied during default processing.) 

26. The pointer built-in function may take a pointer as its first argument 
and any computational expression as its second argument. 

27. The fixed and float built-in functions may take as few as one argument. 
(The standard requires two arguments.) 

28. The <read statement) and the <write statement) may be used with stream 
data sets to read and write a line, respectively. 

29. The <unsigned attribute) and <signed attribute)s are allowed. 

* 30. A <prograramer-deflned condition name) may be an <identifier>. 

+ 31. ASCII newline characters, horizontal tab characters, vertical tab 
characters, and newpage characters are delimiters. 

+ 32. The <member attribute), <struoture attribute) , and <parameter attributes) 
are allowed in the <attribute set) of a <default statement). 
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terms not defined in orose For "oh /.*•'''""*• " "*^^ " ^ few general 
Su^L/o'f'VrVsrref^r'en^T^?''"" ''"*'''' '° ''" ""^-"tanding and reduce ?he 

abs built-in function 

13.2.1 Abs 13-8 

acos built-in function 

13.3 The Mathematical Built-in Functions 13-18 

activated 

See block activation 

activation record 

See block activation 

add built-in function 

13.2.2 Add 13-9 

addr built-in function 

13.6.1 Addr 13-21) 

addrel built-in function 

13.6.2 Addrel 13-2it 

after built-in function 
13.1. 1 After 13-2 

aggregate type 

8.2 Aggregates of Data U-7 
*.2.1 Arrays of Scalars 1-7 

1.2.2 Structures 4-8 

1.2.3 Arrays of Structures 1-8 
1.3.2.5 Based Storage 1-12 

«.3.3.2 Storage Sharing by Based Variables 1-15 
,'---- --• -."s >"=■ iojr uefining H-ig 

Q.10.2 Argument Conversion and Promotion 6-9 

7. Expressions 7-1 

9. Promotion of Aggregate Types 9-1 

9.1 Contexts That Force Promotion 9-1 

9.2 Types of Promotion 9-2 

9.3 Promotion Rules 9-2 
12.2 The Assignment Statement 12-2 
12.24 The Return Statement 12-37.1 

13.2 Arithmetic Built-in Functions 13-8 

13.3 The Mathematical Built-in Functions 13-17 

aggregate value 

See aggregate type 

<aUgned attribute> 

5.4.1 Aligned 5-15 

<alignment> 

5.5 Attribute Consistency 5-32 

<allocate stateBent> 
k.brf 
12.1 The Allocate Statement 12-1 

<allacation> 

12.1 The Allocate Statement 12-1 

allocation 

3.3.1 Block Activation 3-2 

3.6.2 Procedures 3-4 
*.3.2. 1 Allocation of Storage 4-11 
J. 3. 2. 2 Automatic Storage 4-11 

1.3.2.3 Static Storage 4-12 

4.3.2.4 Controlled Storage 4-12 

1.3.2.5 Baaed Storage 4-12 
5.4.25 Initial 5-23 
10.4.1 Area Condition 10-4 
10.4.13 Storage Condition 10-9 
12.1 The Allocate Statement 12-1 
12.13 The Free Statement 12-18 
12.17 The Locate Statement 12-25 
13.6.3 Allocation 13-24 
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I allocation built-in function 
13.6.3 Allocation 13-21 

<allocatlon reference) 

12.1 The Allocate Statement 12-1 
12.17 The Locate Statement 12-25 

Iallocn built-in function 
13.6.3 Allocation l3-2'« . 

<alternative> 

5.1.2a Generic 5-22 

6.9 Generic References 5-7 

<alternative li3t> 

5.1,21 Generic 5-22 

6.9 Generic References 6-7 

<any nonquote> 

12.11 The Get Statement 12-19 

applicable declaration 

6,5 Reference Resolution and Ambiguity 6-4 

<area attribute) 

5.1.2 Area 5-15 

<area condition naae> 

10.1.1 Area Condition 10-4 

<area size> 

5.1.2 Area 5-15 

area value 

1.1.3 Area Data 1-1 
5.1.2 Area 5-15 

7.3-1.2 Types of Comparison 7-10 
3.2 Conversion Rules 3-2 

<arg selector) 

5.1.21 Generic 5-22 

6.9 Generic References 6-7 

argument 

1,3.3.1 Storage Sharing by Parameters 1-15 

5.1.17 Entry 5-19 

6.5 Reference Resolution and Ambiguity 6-4 

6.7 Function References 6-5 

6.8 Built-in Function References 6-7 

6.9 (i en eric References 6-7 

6.10 Parameters and Arguments 6-3 

6.10.1 Argument Passing By-value or By-reference 6-8 

6.10.2 Argument Conversion and Promotion 6-9 

6.10.3 Asterisk and Constant Extents of Parameters 6-9 

6.10.4 Storage of a Parameter 6-9 

3.1 Contexts That Force Conversion 8-1 
9.1 Contexts That Force Promotion 9-1 
12.1 The Call Statement 12-6 
12.11 The Entry Statement 12-13 
12-21 The Procedure Statement 12-29 

<arguaent list) 

6.7 Function References 6-5 
12.4 The Call Statement 12-6 

<arlthmetlc> 

5.5 Attribute Consistency 5-32 

<arlthmetic constant) 

2.6.2.3 Arithmetic Constants 2-7 

arithmetic operators 

7.3.1 Arithmetic Operators 7-5 

arithmetic value 

2.6.2-3 Arithmetic Constants 2-7 
1-1.5 Arithmetic Data 1-2 
5.4.5 Binary 5-16 
5.1.9 Complex 5-17 

5.4.13 Decimal 5-18 
5.4.39 Picture 5-27 

5.4.14 Real 5-29 

7.^.1.1 {)D«rand fTnnVAr'S'f nn ^«^•> At-i f KtHM^ ■< n n^A — A*»«- T e 

7.3-1.2 Results of Arithmetic Operators 7-6 
7.3.1.2 Types of Comparison 7-10 

8.2.3 Character-String to Arithmetic Conversion 8-3 
8.2.5 Bit-String to Arithmetic Conversion 8-4 
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a'f'I ^'"^^11''"'^° '^° Character-String Conversion 8-5 
8.2.8 Arithmetic to Bit-String Conversion 3-7 
r, o *r"''"eti° Type, Base and Precision Conversion 8-8 
8.2.12 Picture Controlled Conversion 3-15 

<array> 

5.5 Attribute i snsistency 5-32 

array of scalars 

4.2.1 Arrays of Scalars fl-7 

4.3.1.3 Packing and Alignment of Arrays M-IO 

9.2 Types of Promotion 9-2 

9.3 Pronotion Rules 9-2 

array of structures 

t.2.3 Arrays of Structures f-S 

4.3.1.2 Packing and Alignment of Structures 4-9 

4.3.1.3 Packing and Alignment of Arrays 4-io 
9.2 Types of Promotion 9-2 

9-3 Promotion Rules 9-2 

array-extent 

4.2 Aggregates of Data 4-7 
See aggregate type 

asin built-in function 

13.3 The Mathematical Built-in Functions 13-18 

< assignment statement> 

12.2 The Assignment Statement 12-2 

atan built-in function 

13.3 The Mathematical Built-in Functions 13-18 

atand built-in function 

13.3 The Mathematical Built-in Functions 13-18 

atanh built-in function 

13.3 The Mathematical Built-in Functions 13-18 

<attribute> 

Although this <notation variable) is not formally 

defined by a syntax rule, <attribute> must be 

one of the <attribute>s defined in section 5.4 (p 5-15) 

<attribute keyword) 

5.3.1 Default Statement 5-11 
12.7 The Default Statement 12-6 

<3ttribute 3et> 

5.2.1 Declare Statements 5-2 

5.2.1.1 Defactoring of Declare Statements 5-3 

5.3.1 Default Statement 5-11 

5.4.17 Entry 5-19 

5.4.24 Generic 5-22 

5.4.47 Returns 5-30 

6.9 Generic References 6-7 

12.6 The Declare Statement 12-7 

12.7 The Default Statement 12-8 

<automatic attribute) 

5.4.3 Automatic 5-16 

automatic storage 

4.3.2.1 Allocation of Storage 4-11 

4.3.2.2 Automatic Storage 4-11 

base 

4.1.5 Arithmetic Data 4-2 

<base reference) 

4.3.3.3 Storage Sharing by Defined Variables 4-16 
5.4.14 Defined 5-18 

base variable 

4.3.3.3 Storage Sharing by Defined Variables 4-16 

< based attribute) 

5.4.4 Based 5-16 

<based reference) 

6.6 Locator Qualified References 6-5 

based storage 

4.3.2.1 Allocation of Storage 4-1 1 
4.3.2.5 Based Storage 4-12 
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baaeno built-in function 

13.6.4 Baseno 13-24 

baaeptr built-in function 

13.6.5 Baaeptr 13-25 

<ba3io expres3ion> 

7.2 Foraal Syntax of Expresaions 7-4 



I before built-in function 
13.1.2 Before 13-2.I 



<begin blook> 

2.2 Blocks and Block Structure 2-1 

<begln 3tate«ent> 

12.3 The Begin Statement 12-6 

I bin built-in function 
13.2.3 Binary 13-9 

<binary attribute) 

5.4.5 Binary 5-16 

I binary built-in function 
I 13.2.3 Binary 13-9 

<binary constant) 

2.6.2.3 Arlthnetlc Constants 2-7 

<binary dlgit> 

2.6.2.3 Arithaetle Constanta 2-7 

<blnary integer) 

2.6.2.3 Arithmetic Constants 2-7 

<binary number) 

2.6.2.3 Arithmetic Constants 2-7 

<bit attribute) 

5.4.6 Bit 5-16 

bit built-in function 
13.1.3 Bit 13-3 

<bit-string constant) 

2.6.2.1 Bit-String Constants 2-6 

<bit-string format) 

8.2.11.5 Bit-String Format 8-14 
12.12 The Format Statement 12-14 



1.2.3 A Formal Definition of the Meta-Language 1- 



<blank) 

2.6.4 Delimiters, Blanks and Comments 2-8 

< block) 

2.2 Blocks and Block Structure 2-1 

block activation 

3.3.1 Block Activation 3-2 

3.3.2 Environment of a Block Activation 3-2 

3.4 FloH of Control Within a Block Activation 3-3 

3.5 Local and Nonlocal Goto Statements 3-3 

3.6.1 Begin Blocks 3-3 

3.6.2 Procedures 3-4 

3.6.3 On Units 3-4 

4.1.9 Label Data 4-4 

4.1.10 Format Data 4-5 

4.1.11 Entry Data 4-5 
4.3.2.2 Automatic Storage 4-11 

4.3.3.2 Storage Sharing by Based Variables 4-15 

4.3.3.3 Storage Sharing by Defined Variables 4-16 
6.10 Parameters and Arguments 6-8 

7.3.4.2 Types of Comparison 7-10 
10.3 Signals and On-Onits 10-2 

12.3 The Begin Statement 12-6 

12.4 The Call Statement 12-6 

12.10 The End Statement 12-12 

12.11 The Entry Statement 12-13 
12.15 The Goto Statement 12-24 
12.19 The On Statement 12-27 

12.21 The Procedure Statement 12-29 

12.24 The Return Statement 12-37.1 

12.25 The Revert Statement 12-38 
13.5.6 Onloc 13-23 
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<block conponent> 

2.2 Blocks and Block Structure 2-1 

blocked 

3.2 A Multics PL/I Program 3-1 

bool built-in function 
13.1.1 Sool 13-3 

<bound> 

5.1.15 DiaensioB 5-18 

braces 

1.2.2 Syntax Expressions 1-2 

brackets 

1.2.2 Syntax Expressions 1-2 

built-in functions 

6.8 Built-in Function References 6-7 
13. Built-in Functions 13-1 

<builtin attribute) 

5.1.7 Builtin 5-17 

<builtin set> 

5.5 Attribute Consistency 5-32 

<by-naDie option> 

12.2 The Assignment Statement 12-2 

by-reference 

1.3.3.1 Storage Sharing by Parameters 1-15 

6.10.1 Argument Passing By-value or By-reference 6-8 

6.10.3 Asterisk and Constant Extents of Parameters 6-9 

by-value 

1.3.3.1 Storage Sharing by Parameters U-15 

6.10.1 Argument Passing By-value or By-reference 6-8 

6.10.2 Argument Conversion and Promotion 6-9 

6.10.3 Asterisk and Constant Extents of Parameters 6-9 

byte built-in function 
13.1.1a Byte 13-3 

<call statement) 

12.1 The Call Statement 12-6 

ceil built-in function 
13.2.1 Ceil 13-10 

char built-in function 

13.1.5 Character 13-3.1 

<character> 

2.6.2.2 Character-String Constants 2-6 

<eharacter attribute) 

5.1.8 Character 5-17 

character built-in function 
13.1.5 Character 13-3.1 

<character picture) 

8.2.12.1 Syntax of Pictures 8-15 

<character-3tring constant) 

2.6.2.2 Character-String Constants 2-6 

<aharact6r-3tring fornat) 

8.2.11.1 Character-String Format 8-13 
12.12 The Format Statement 12-11 

clock built-in function 
13.6.5a Clock 13-25 

< close statement) 

12.5 The Close Statement 12-7 

<closure label) 

2.1 Multiple Closure of Groups and Blocks 2-3 
12.10 The End Statement 12-12 

codeptr built-in function 
13.6.5b Codeptr 13-25 
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collate built-in function 
13.1.6 Collate 13-1 

oollateg built-in function 
13.1.6a Collate9 13-4 

< column forraat> 

12.12 The Format Statement 12-1 1| 

columnposition 

11.2 File Values and File-State Blocks 11-1 

11.3 Opening a File 11-3 

12.12 The Format Statenent 12-14 
12.19 The Get Statement 12-19 
12.22 The Put Statement 12-30 

<cofflaent> 

2.6.4 Delimiters, Blanks and Comments 2-8 

<complex attribute> 

5.4.9 Complex 5-17 

complex built-in function 
13.2.5 Complex 13-10 

< complex forma t> 

8.2.11.3 Complex Format 8-13 
12.12 The Format Statement 12-14 

<eondition attribute) 

5.4.10 Condition 5-17 

<condition list> 

12.25 The Revert Statement 12-38 

<conditlon name> 
I 10.4 PL/I Conditions 10-4 
I 12.19 The On Statement 12-27 
I 12.25 The Revert Statement 12-37.1 
I- 12.27 The Signal Statement 12-39 

condition name 

10.1 Conditions and Condition Names 10-1 
10.4 PL/I Conditions 10-4 

<eondition prefix> 

2.5.1 Statement Prefixes 2-4 

10.2 Condition Prefixes 10-1 

< condition- set> 

5.5 Attribute Consistency 5-32 

conditions 

2.5.1 Statement Prefixes 2-4 

3.6.3 On Units 3-4 

''.1.5 Arithmetic Data 4-2 

^.3.3.3 Storage Sharing by Defined Variables 4-16 

5.4.10 Condition 5-17 

7.1.6 Expression Evaluation and Conditions 7-3 

^,-^'J„'^^^''^<'^«''-Strins to Arithmetic Conversion S-3 

10.1 Conditions and Condition Names 10-1 

10.2 Condition Prefixes 10-1 
TO. 3 Signals and On-Units 10-2 

10.4 PL/I Conditions 10-4 

I?*2'?^ Multics and Programmer Defined Conditions 10-11 

11.5 Conditions and Files 11-6 
12.19 The On Statement 12-27 
12.25 The Revert Statement 12-38 
12.27 The Signal Statement 12-39 

13.5 Condition Built-in Functions 13-22 

conforms 

8. Conversion of Data Types 8-1 

9. Promotion of Aggregate Types 9-1 

oonjg built-in function 
13.2.6 Conjg 13-11 

connected 

4.3.1.3 Packing and Alignment of Arrays 4-10 
4.3.3.2 Storage Sharing by Based Variables 4-15 
6.3 Cross-Section References 6-3 

h'Mi.*'!'':"' ^"- Constant Extents of Parameters 6-9 
12.2 The Assignment Statement 12-2 
12.23 The Read Statement 12-35 
12.26 The Rewrite Statement 12-38 
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12.28 The Write Statement 12-ttl 
13.6.1 Addr 13-21 

<con3istent attribute set> 

5.5 Attribute Consistency 5-32 

<eonsi3tent file description) 

5.5 Attribute Consistency 5-32 
11.3 Opening a File 11-3 

<constant attribute) 

S.JJ.n Constant 5-18 

constants 

2.6.2 Literal Constants 2-5 

2.6.2.1 Bit-String Constants 2-6 

2.6.2.2 Character-String Constants 2-6 

2.6.2.3 Arithmetic Constants 2-7 
t. 1.2 Constants t-1 

4. 1.9 Label Data 4-4 

4.1.10 Format Data 4-5 

4.1.11 Entry Data 4-5 

4.1.12 File Data 4-6 

4.2.1 Arrays of Scalars 4-7 

5.2.6 Establishment of Implicit Declarations 5-10 
5.3 Completion of Attribute Sets 5-10 

5.3.2 Evaluation of Default Statements 5-12 

5.3.3 Language Default Rules 5-13 
5.4.11 Constant 5-18 

7. Expressions 7-1 

7.1.1 Evaluation of Primitive Expressions 7-1 
11.2 File Values and File-State Blocks 11-1 
11.5 Conditions and Files 11-6 

contained 

2.1 External Procedure 2-1 

2.2 Blocks and Block Structure 2-1 
5.1 Scope of a Declaration 5-1 

.<containing reference) 

6.4 Structure Qualified References 6-3 

<eohtr<3l> 

12.9 The Do Statement 12-9 

control 

See flow of control 

control character 

11.1.1 Stream Data Sets 11-1 
12.12 The Format Statement 12-14 

<oontrol format) 

12.12 The Format Statement 12-14 

<controlled attribute) 

5.4.12 Controlled 5-18 

controlled storage 

4.3.2.1 Allocation of Storage 4-11 
4.3.2.4 Controlled Storage 4-12 

<conver3ion condition name) 

10.4.2 Conversion Condition 10-5 

conversion rules 

7.3.1.1 Operand Conversion for Arithmetic Operators 7-5 
7,3.2.1 Operand Conversion for Bit-String Operators 7-8 
7. J. 3.1 Operand Conversion for Concatenation 7-9 
7.3.4.1 Operand Conversion for Relational Operators 7-10 

8.2.1 Pointer to Offset Conversion 8-3 

8.2.2 Offset to Point r<r Conversion 8-3 

8.2.3 Character-String to Arithmetic Conversion 8-3 

8.2.4 Character-String to Bit-String Conversion 3-4 

8.2.5 Bit-String to Arithmetic Conversion 3-4 

8.2.6 Bit-String to Character-String Conversion 8-5 
o? "I *'"it*>™etl° to Character-String Conversion 8-5 

8.2.8 Arithmetic to Bit-String Conversion 8-7 

8.2.9 Arithmetic Mode Conversion S-7 

t'^']° Afithaetie Type, Base and Precision Conversion 8-8 

8.2.11 Format Controlled Conversion 3-9 

8.2.12 Picture Controlled Conversion 8-15 

convert built-in function 
13.6.6 Convert 13-26 
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copy built-in function 
13.1.7 Copy 13-i» 

<copy option) 

12.14 The Get Stateaent 12-19 

cos built-in function 

13.3 The Mathenatioal Built-in Functions 13-18 

cosd built-in function 

13.3 The Mathematical Built-in Functions 13-18 

cosh built-in function 

13.3 The Hatheaatical Built-in Functions 13-18 

cplx built-in function 

13.2.5 Complex 13-10 

cress-section 

4.3.1.3 Packing and Alignment of Arrays 4-10 

6.3 Cross-Section References 6-3 

6.4 Structure Qualified References 6-3 

6.10.3 Asterisk and Constant Extents of Paraaeters 6-9 

current length 

4,1.6 String Data 4-3 

12.2 The Assignment Statement 12-2 

12.22 The Put Statement 12-30 

ourrentrecord 

11.2 File Values and File-State Blocks 11-1 

11.3 Opening a File 11-3 

11.4 Closing a File 11-5 

12.8 The Delete Statement 12-8 
12.17 The Locate Statement 12-25 

12.23 The Read Statement 12-35 
12.26 The Rewrite Statement 12-38 
12.28 The Write Statement 12-41 

I- currentsize built-in function 
13.6.6a Currentsize 13-26 

<d> 

3.2.11.1 Fixed-Point Format 8-9 

8.2.11.2 Floating-Point Format 3-11 
12.12 The Format Statement 12-14 

data character 

11.1.1 Stream Data Sets 11-1 

11.2 Flic Values and File-State Blocks 11-1 

12.14 The Get Stateaent 12-19 

<data format> 

12,12 The Format Statement 12-14 

data set 

4. 1.12 File Data 4-6 

11.1.1 Stream Data Sets 11-1 

11.1.2 Record Data Sets 11-1 

11.2 File Values and File-State Blocks 11-1 

11.3 Opening a File II-3 

11.4 Closing a File 11-5 

<data type> 

5.5 Attribute Consistency 5-32 

data type- 

4.1.1 Representation of Data 4-1 

4.1.3 Variables 4-1 

4.1.4 Data Types of Expressions and Functions 4-2 

4.1.5 Arithmetic Data 4-2 

4.1.6 String Data 4-3 

4.1.7 Locator Data 4-3 

4.1.8 Area Data 4-4 

4.1.9 Label Data 4-4 

4.1.10 Format Data 4-5 

4.1.11 Entry Data 4-5 

4.1.12 File Data 4-6 

4.2 Aggregates of Data 4-7 
4.3.3 Storage Sharing 4-14 

5.4.2 Area 5-15 
5.4.6 Bit 5-16 
5.4.8 Character 5-17 
5.4.17 Entry 5-19 

5.4.20 File 5-21 

5.4.21 Fixed 5-21 

5.4.22 Float 5-22 
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5.4.23 Format 5-22 
5.4.30 Label 5-25 
5.4.35 Offset 5-26 

5.4.39 Picture 5-27 

5.4.40 Pointer 5-28 
5.4.51 Structure 5-30.1 

6.10.2 Argunent Conversion and Promotion 5-9 
7.3.4.2 Types of Comparison 7-10 
8. Conversion of Data Types 3-1 

date built-in function 
13.6.7 Date 13-26 

dee built-in function 

13.2.7 Decimal 13-11 

decat built-in function 

13.1.8 Decat 13-4 

<deeimal attribute) 

5.4.13 Decimal 5-18 

decimal built-in function 
13.2.7 Decimal 13-11 

<decimal constant) 

2.6.2.3 Arithmetic Constants 2-7 

<decimal integer) 

2.6.2.3 Arithmetic Constants 2-7 

<decimal ntnber> 

2.6.2.3 Arithmetic Constants 2-7 

declaration 

5. Declarations 5-1 

6. References 6-1 

<declaratlon component) 

5.2.1 Declare Statements 5-2 
12.6 The Declare Statement 12-7 

<declaration list) 

5.2.1 Declare Statements 5-2 
12,6 The Declare Statement 12-7 

<declarfr statement) 

5.2.1 Declare Statements 5-2 
12.6 The Declare Statement 12-7 

<declared name) 

2.5.1 Statement Prefixes 2-4 

5.2.1,1 Defactoring of Declare Statements 5-3 

5.2.1 Declare Statements 5-2 

12.6 The Declare Statement 12-7 

<defaotored declaration) 

5.2.1 Declare Statements 5-2 

<defactored declare) 

5.2.1.1 Defactoring of Declare Statements 5-3 

default rules 

5.2 Establishment of Declarations 5-2 

5.2.5 Contextually Derived Attributes 5-9 

5.2.6 Establishment of Implicit Declarations 5-10 
5-3 Completion of Attribute Sets 5-10 

5.3.3 Language Default Rules 5-13 

11.2 File Values and File-State Blocks 11-1 

<default statement) 

5.3.1 Default Statement 5-11 

5.3.2 Evaluation of Default Statement 5-12 

12.7 The Default Statement 12-8 

<defined attribute) 

S'^h^^^^*""^** Sharing by Defined Variables 4-16 
5.4.14 Defined 5-18 

< delete statement) 

12.8 The Delete Statement 12-8 

<deHmiter) 

2.6.4 Delimiters, Blanks and Comments 2-8 
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<de5eriptor> 

5.4. 17 Entry 5-19 
5.1.47 Returns 5-30 

<descpiptor set> 

5.5 Attribute Consistency 5-32 

<digit> 

2.6. 1 Identifiers 2-5 

2.6.2.3 Arithnetio Constants 2-7 

<digit positions) 

8.2.12.1 Syntax of Pictures 8-15 

<dlglts> 

8.2.12.1 Syntax of Pictures 3-15 

I din built-in function 
13.4.1 Dimension 13-20 

<dia key> 

5.4.15 Dimension 5-18 

<diaenslon attribute) 

5.4.15 Dimension 5-18 

I dimension built-in function 
I 13.4.1 Dimension 13-20 

<direct attribute) 

5.4. 16 Direct 5-19 

direct data set 

11.1.2 Record Data Sets 11-1 

<direct description) 

5.5 Attribute Consistency 5-32 
11.3 Opening a File 11-3 

disabled (condition) 

10.2 Condition Prefixes 10-1 

<dlsabled condition) 

10.2 Condition Prefixes 10-1 

divide built-in function 
13.2.8 Divide 13-11 

<do statement) 



<do while) 

12.9 The Do Statement 12-9 



I dot built-in function 
13.4,2 Dot 13-20 

<drifting dollar) 

8.2.12.1 Syntax of Pictures 8-15 

<driftlng field) 

8.2,12.1 Syntax of Pictures 3-15 

<drlfting sign) 

8.2.12.1 Syntax of Pictures 8-15 

dynamic descendent 

3.3.2 Environment of a Block Activation 3-2 

dynamic linking 

3.2 A Multics PL/I Program 3-1 

dynamic predecessor 

3.3.1 Block Activation 3-2 

3.3.2 Environment of a Block Activation 3-2 
3.6.1 Begin Blocks 3-3 

editing 

8.2,12 Picture Controlled Conversion 8-15 

elements 

4,2.1. Arrays of Scalars 4-7 

4.2.3 Arrays of Structures 4-8 

4.3.1.3 Packing and Alignment of Arrays 4-10 
4.3.3 Storage Sharing 4-14 
5.4.25 Initial 5-23 

9.3 Promotion Rules 9-2 

^^'^ i-10 AG94E 



<else alau3e> 

12.16 The If Statement 12-25 

eapty built-in function 
13.6.8 Eapty 13-26 

<enabled condition) 

10.2 Condition Prefixes 10-1 

enabled condition 

10.2 Condition Prefixes 10-1 

encoding 

8.2.12 Picture Controlled Conversion 8-15 
<end statenent> 

f^^^-n'^i^^P^® Closure of Groups and Blocks 2-3 
12.10 The End Statement 12-12 

<endfile condition name> 

10.1.3 Endfile Condition 10-5 

<endpage condition naffle> 

lO.U.fl Endpage Condition 10-5 

<entry> 

5.5 Attribute Consistency 5-32 

<entry attribute) 

5.t.17 Entry 5-19 

entry constant 

See entry value 

<entry option) 

12.11 The Entry Statement 12-13 

<entry reference) 

5.1.24 Generic 5-22 
6.7 Function References 6-5 
6.9 Generic References 6-7 
12.1 The Call Statement 12-6 

< entry statement) 

12,11 The Entry Statement 12-13 

entry value 

3.3.2 Environment of a Block Activation 3-2 
t.l.n Entry Data 4-5 

5.4.17 Entry 5-19 
5.4.28 Irreducible 5-24 
5.4.36 Options 5-26 
5.4.46 Reducible 5-29 

6.7 Function References 6-5 

6.8 Built-in Function References 6-7 

6.9 Generic References 6-7 
7.3.4.2 Types of Comparison 7-10 
12.4 The Call Statement 12-6 

<environaent attribute) 

5.4.18 Environment 5-20 

environmentptr built-in function 

13.6.8a Environmentptr 13-26.1 

equivalenoed based generation 

4.3.2.5 Based Storage 4-12 

erf built-in function 

13.3 The Mathematical Built-in Fursetions 13-18 

erfc built-in function 

13.3 The Mathematical Built-in Functions 13-18 

<error condition name) 

10.4.5 Error Condition 10-6 

error output 

To. 4 PL/I Conditions 10-4 

established 

3.6.3 On Units 3-4 

10.3 Signals and On-Units 10-2 

evaluate 

6. References 6-1 

7. Expressions 7-1 
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<exeoutable unit> 

12.16 The If Statement 12-25 

Iexp built-in function 
13.3 The Mathematical Built-in Functions 13-18 

explicitly allocated based generation 
'1.3.2.5 Based Storage 14-12 

<exponent> 

2.6.2.3 Arithmetic Constants 2-7 

exponent 

•♦.I.S Arithmetic Data U-2 

7.3.1.2.3 Special Cases of Exponentiation 7-7 

8.2.11.2.1 Floating-Point Input Conversion 3-11 

8.2.11.2.2 Floating-Point Output Conversion 3-12 
8.2.12.4 Floating-Point Picture Conversion 8-20 
10.1.10 OverfloM Condition 10-8 

10.4.19 Underflow Condition 10-11 

<exponent field> 

3.2.12.1 Syntax of Pictures 8-15 

<expression> 

7.2 Formal Syntax of Expressions 7-4 

expression 

1.2.2 Syntax Expressions 1-2 

1.2.3 A Formal Definition of the Meta-Language 1-3 
3.6.2 Procedures 3-4 

4.1.4 Data Types of Expressions and Functions U-2 

7.1.1 Evaluation of Primitive Expressions 7-1 

7.1.2 Evaluation of Prefix Expressions 7-1 

7.1.3 Evaluation of Infix Expressions 7-2 

7.1.4 Order of Evaluation 7-2 

7.1.6 Expression Evaluation and Conditions 7-3 
7.2 Formal Syntax of Expressions 7-4 

<expression five> 

7.2 Formal Syntax of Expressions 7-4 

< expression four> 

7.2 Formal Syntax of Expressions 7-4 

<expre3sion one> 

7.2 Formal Syntax of Expressions 7-4 

< expression 3even> 

7.2 Formal Syntax of Expressions 7-4 

<expression slx> 

7.2 Formal Syntax of Expressions 7-4 

<expression three> 

7.2 Formal Syntax of Expressions 7-4 

< expression two> 

7.2 Formal Syntax of Expressions 7-4 

<extent expression} 

4.3.2.5 Based Storage 4-12 
5.4.2 Area 5-15 
5.4.6 Bit 5-16 
5.4.8 Character 5-17 
5.4.15 Dimension 5-18 

<external attribute) 

5.4.19 External 5-21 

<external procedure) 

2.1 External Procedure 2-1 

external scope 

5.1.2 External Scope 5-1 

< factor) 

5.4.25 Initial 5-23 

file 

See file-state block 



<flle attribute) 

5.4.20 File 5-21 

<file get) 

12.14 The Get Statement 12-19 
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<fiXe get option) 

12.111 The Get Statement 12-19 

<file optlon> 

12.5 The Close Statement 12-7 
T2.S The Delete Statement 12-8 
12.111 The Get Statement 12-19 
12.17 The Locate Statement 12-25 
12.20 The Open Statement 12-28 

12.22 The Put Statement 12-30 

12.23 The Read Statement 12-35 
12.26 The Rewrite Statement 12-38 
12.28 The Write Statement 12-4 1 

<file put> 

12.22 The Put Statement 12-30 

<flle put option> 

12.22 The Put Statement 12-30 

file value 

See file-state block 

file-state block 

1. 1.12 Fj e Data a-6 

5.1.18 Environment 5-20 

5.4.18 Environment 5-20 

5. '♦.32 Local 5-25 

5.4.37 Output 5-27 

5.4.43 Print 5-29 

5.1.45 Record 5-29 

5.4.143 Soqu-ntial 5-30 

5.4.50 Stream 5-30. 1 

5.4.53 Update 5-32 

7.3.4.2 Types of Comparison 7-10 

11.2 File Values and File-State Blocks 11-1 

11.5 Conditions and Files 11-6 

12.2 The Assignment Statement 12-2 

12.5 The Close Statement 12-7 

12.8 The Delete Statement 12-8 

12.12 The Format Statement 12-14 

12.14 The Get Statement 12-19 

12.17 The Locate Statement 12-25 

12.20 The Open Statement 12-28 

12.22 The Put Statement 12-30 

• e.tj 4tnr neaa ^tacement 12-35 

12.28 The Write Statement 12-41 

13.6.9 Lineno 13-26.1 

13.6.13 Pageno 13-27 

f iledescription 

11.2 File Values and File-State Blocks 11-1 

11.3 Opening a File 11-3 

filename 

11.2 File Values and File-State Blocks 11-1 

11.3 Opening a File II-3 
13.5.4 Onfile 13-23 

<finish condition name> 

10.4.6 Finish Condition 10-6 

<first> 

12.9 The Do Statement 12-9 

< fixed attribute> 

5.4.21 Fixed 5-21 

fixed built-in function 
13.2.9 Fixed 13-12 

<fixed field> 

8.2.12.1 Syntax of Pictures 8-15 

<flxed-polnt format> 

8.2.11.1 Fixed-Point Format 8-9 
12.12 The Format Statement 12-14 

<fixed-point picture) 

8.2.12.1 Syntax of Pictures 8-15 

<fixedovern.ow condition name> 

10.4.7 Fixedoverflow Condition 10-7 

< float attribute) 

5.4.22 Float 5-22 
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i float built-in function 
13.2.10 Float 13-12 

< floating-point fopiiiat> 

8.2.11.2 Floating-Point Format 3-11 
12.12 The Format Statement 12-\^ 

<floating-point picture) 

8.2.12.1 Syntax of Pictures 3-15 

I floor built-in function 
13.2.11 Floor 13-12 

flow of control 

3.1 Flow of Control 3-1 

3.3.1 Block Activation 3-2 

3.3.2 Environment of a Block Activation 3-2 

3.1 Flow of Control. Within a Block Activation 3-3 
10.3 Signals and On-Units 10-2 

< format attribute) 

5.1.23 Format 5-22 

format constant 

See format value 

< format item) 

12.12 The Format Statement 12-11 

< format part> 

8.2.11.3 Complex Format 3-13 
12.12 The Format Statement 12-11 

< format specification) 

12.12 The Format Statement 12-11 

< format specification list) 

12.12 The Format Statement 12-11 

< format statement) 

12.12 The Format Statement 12-11 

format value 

1.1.10 Format Data 1-5 
5.1.23 Format 5-22 
5.1.32 Local 5-25 

12.12 The Format Statement 12-11 

<fortran control) 

12.9 The Do Statement 12-9 

<free reference) 

12.13 The Free Statement 12-18 

<free statement) 

12.13 The Free Statement 12-18 

<freeing> 

12.13 The Free Statement 12-18 

<from option) 

12.26 the Rewrite Statement 12-38 
12.28 The Write Statement 12-41 

fully qualified 

6.1 Structure Qualified References 6-3 

<funotion reference) 

6.7 Function References 6-5 

generation of storage 

1.1.3 Variables 1-1 
1.1.7 Locator Data 1-3 
1.1.3 Area Data 4-1 

1.3.2.1 Allocation of Storage 1-11 

1.3.2.2 Automatic Storage 1-11 

1.3.2.3 Static Storage 1-12 
1.3.2.1 Controlled Storage 1-12 
1.3.2,5 Based Storage 1-12 
1.3.3 Storage Sharing 1-11 

6. References 6-1 

6.10.1 Argument Passing By-value or By-reference 6-8 

6.10.1 Storage of a Parameter 6-9 

10.1.15 Strlngsize Condition 10-5 

12.1 The Allocate Statement 12-1 

12.2 The Assignment Statement 12-2 
12.9 The Do Statement 12-9 

3/81 i.,a j^jjg^g 



12.13 The Free Statement 12-18 
12.17 The Locate Statement 12-25 

12.22 The Put Statement 12-30 

12.23 The Read Statement 12-35 
13.6.1 Addr 13-24 

13.6.12 Offset 13-26.1 

13.6.111.1 The Standard Definition of Pointer 13-27 

<generic attribute) 

5.1.24 Generic 5-22 

6.9 Generic References 6-7 

generic reference 

6.9 Generic References 6-7 

<generio 3et> 

5.5 Attribute Consistency 5-32 

<get data> 

12.14 The Get Statement 12-19 

<get data ref> 

12.14 The Get Statement 12-19 

<get edit> 

12.14 The Get Statement 12-19 

<get edit pair> 

12.14 The Get Statement 12-19 

<get lteffl> 

12.14 The Get Statement 12-19 

<get list> 

12.14 The Get Statement 12-19 

<get list specification) 

12.14 The Get Statement 12-19 

<get statement) 

12.14 The Get Statement 12-19 

<goto statement) 

12.15 The Goto Statement 12-24 

<graphic delimiter) 

2.6.4 Delimiters, Blanks and Comments 2-8 

< group) 

2.3 Groups 2-2 

hbound built-in function 
13.1.3 Hbound 13-20 

high built-in function 
13.1.9 High 13-5 

high9 built-in function 
13.1.9a High9 13-6 

<identifier) 

2.6.1 Identifiers 2-5 

<if statement) 

12.16 The If Statement 12-25 

< ignore option) 

12.23 The Read Statement 12-35 

imag built-in function 
13.2. 12 Imag 13-13 

<ifflag pseudo) 

12.2 The Assignment Statement 12-2 

< imaginary constant) 

2.6.2.3 Arithmetic Constants^ 2-7 

immediately contained 

2.2 Blocks and Block Structure 2-1 

<in option) 

12.1 The Allocate Statement 12-1 
12.13 The Free Statement 12-18 

<include macro) 

2,7 Include Macro 2-9 
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<increnient> 

12.9 The Do Statement 12-g 

< independent statement) 
2.5 Statements 2-4 

<index> 

12.9 The Do Statement 12-9 

I index built-in function 
13.1.10 Index 13-6 

infix arithmetic operators 

7.3.1 Arlthaetie Operators 7-5 

Infix expression 

"••l.t Data Types of Expressions and Functions 1-2 

7. Expressions 7-1 

7.1.3 Evaluation of Infix Expressions 7-2 

< initial attribute) 

5.4.25 Initial 5-23 

<lnitial iteii> 

5.4.25 Initial 5-23 

<initial list) 

5.4.25 Initial 5-23 

< initial value) 

5.4.25 Initial 5-23 

inltialdescrlptlon 

11.2 File Values and File-State Blocks 11-1 

11.3 Opening a File 11-3 

< input attribute) 

5.4.26 Input 5-24 

input buffer 

11.2 File Values and File-State Blocks 11-1 

11.4 Closing a File 11-5 
12.23 The Read Statement 12-35 
12.26 The Rewrite Statement 12-38 

input conversion 

8.2.11 Fornat Controlled Conversion 8-9 
12.12 The Format Statement 12-14 

^Insertlor '«^'*— — *"^— ^ 

8.2.12.1 Syntax of Pictures 8-15 

interleaved array 

4.3.1.3 Packing and Alignment of Arrays 4-10 

internal 

5.1.1 Internal Scope 5-1 

<internal attribute) 

5.4.27 Internal 5-24 

<into option) 

12.23 The Read Statement 12-35 

irreducible 

6.11 Reducibility of Functions 6-9 

<irreduoible attribute) 

5.4.28 Irreducible 5-24 

<lsub) 

2.6.3 Isubs 2-8 

laub defining 

U.3.3.3 Storage Sharing by Defined Variables 4-16 
1.3.3.1 l3Ub Defining 4-17 

item 

5.4 Syntax and Semantics of Attributes 5-15 

<iteration factor) 

12.12 The Format Statement 12-14 

< Iterative do) 

12.9 The Do Statement 12-9 
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<lteratlve group> 

2.3 Groups 2-2 



<k> 



key 



8.2.11.1 Fixed-Point Format 8-9 
12.12 The Format Statement 12-14 

11.1.2 Record Data Seta 11-1 



<ltey condition name> 

10.4.8 Key Condition 10-7 

<lcey option> 

12.8 The Delete Statement 12-8 
12.23 The Read Statement 12-35 
12.26 The Rewrite Statement 12-38 

<lcey 3pee> 

12.23 The Bead Statement 12-35 

<keyed attribute) 

5.4.29 Keyed 5-24 

keyed sequential data set 

11.1.2 Record Data Sets 11-1 

<keyfrom option> 

12.17 The Locate Statement 12-25 
12.28 The Write Statement 12-41 

<keyto option) 

12.23 The Read Statement 12-35 

keyword 

2.6.1 Identifiers 2-5 

<label attribute) 

5.4.30 Label 5-25 

label constant 

See label value 

<label prefix) 

2.5.1 Statement Prefixes 3-4 

label value 

3.4 Flow of Control Within a Block Activation 3-3 

t.1.9 Label Data 4-4 

5.4.30 Label 5-25 

7'3.'».2 Types of Comparison 7-10 

12.15 The Goto Statement 12-24 

Ibound built-in function 
13.1.4 Lbound 13-21 

<length) 

5.4.6 Bit 5-16 
5.4.8 Character 5-17 

length built-in function 
13.1.11 Length 13-6 

<letter> 

2.6.1 Identifiers 2-5 

<level) 

5.2.1 Declare Statements 5-2 

!;^;^iJ Defactoring of Declare Statements 5-3 
12.6 The Declare Statement 12-7 

level-one 

t.2.2 Structures 4-8 

5.2.1.3 normalization of Levels 5-4 

< lex erne) 

2.6 Lexical Syntax of PL/I 2-5 

<llke attribute) 

5.2.2 Expansion of the Like Attribute 5-4 
5.4.31 Like 5-25 

<like reference) 

5.2.2 Expansion of the Like Attribute 5-4 
5.1.31 Like 5-25 
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<liinlt> 

12.9 The Do Statement 12-9 

<line fopniat> 

12.12 The Format Statement 12-m 

<line optlon> 

12.22 The Put Statement 12-30 

llnemark 

5.1.18 Environment 5-20 

10. 4. « Endpage Condition 10-5 

11.1.1 Stream Data Sets 11-1 

11.2 File Values and File-State Blocks 11-1 

12.12 The Format Statement 12-m 

12.14 The Get Statement 12-19 

12.22 The Put Statement 12-30 

Ilineno built-in function 
13.6.9 Lineno 13-26.1 

linenumber 

10.JJ.H Endpage Condition 10-5 

11.2 File Values and File-State Blocks 11-1 

11.3 Opening a File 11-3 

12.12 The Format Statement 12-1K 
12. m The Get Statement 12-19 
12.22 The Put Statement 12-30 
13.6.9 Lineno 13-26. 1 

linesize 

11.2 File Values and File-State Blocks 11-1 

n.3 Opening a File 11-3 

12.12 The Format Statement 12-11 

12.11 The Get Statement 12-19 

12.22 The Put Statement 12-30 

<lineslze optlon> 

12.20 The Open Statement 12-28 

<li3t do> 

12.11 The Get Statement 12-19 
12.22 The Put Statement 12-30 

<literal constant> 

2.6.2 Literal Constants 2-5 

<literal constant set> 

5.5 Attribute Consistency 5-32 

<lacal attributed 

5.1.32 Local 5-25 

local goto 

3.5 Local and Honlooal Goto Statements 3-3 

<locate option> 

12.17 The Locate Statement 12-25 

<loeate statement> 

12.17 The Locate Statement 12-25 

locator data 

1.1.7 Locator Data 1-3 

<looator qualified referenoe> 

1.3.2.5 Based Storage 1-12 

6.6 Locator Qualified References 5-5 

<locator qualifier) 

1.3.2.5 Based Storage 1-12 

6.6 Locator Qualified References 6-5 

log built-in function 

13.3 The Mathematical Built-in Functions 13-18 

loglO built-in function 

13.3 The Hathemataioal Built-in Functions 13-18 

log2 built-in function 

13.3 The Mathematical Built-in Functions 13-18 

lov built-in function 
13.1.12 Low 13-6 

Itrim built-in function 

13.1.12a LtriB 13-6,1 
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aajop structure 

1.2.2 Structures 4-8 

jj.S.S. 1 Allocation of Storage 4-11 

4.3.2.5 Based Storage 4-12 

<aantls3a field> 

8.2.12.1 Syntax of Pictures 8-15 

nax built-in function 
13.2.13 Max 13-13 

otaxinua length 

4.1,6 String Data 4-3 
5.4.6 Bit 5-16 
5.4,8 Character 5-17 
5.4.34 Nonvarying 5-26 
5.4.55 Varying 5-32 

naxlength built-in function 

13.1.12b Maxlength 13-6.1 

<menber attribute) 

5.4.33 Nenber 5-25 

<!iiember reference) 

6.4 Structure Qualified References 6-3 

menbers 

4.2.2 Structures 4-8 

4.3.1 Packing and Alignment of Variables 4-8 
4.3.2.1 Allocation of Storage 4-1 1 

*.3.3 Storage Sharing 4-14 
5.1 Scope of a Declaration 5-1 

5.2.2 Expansion of the Like Attribute 5-4 
6.4 Structure Qualified References 6-3 

<aeta-language> 

1.2.3 A Formal Definition of the Heta-Language 1-3 

. <Beta- letter) 

1.2.3 A Formal Definition of the Heta-Language 1-3 

Mln built-in function 

13.2.14 Min 13-13 

nod built-in function 

13.2.15 Mod 13-13 

aode 

2.6.2.3 Arithaietle Constants 2-7 
4.1.5 Arithmetic Data 4-2 

7.3.1.1 Operand Conversion for Arithmetic Operators 7-5 

7.3.1.2 Results of Arithmetic Operators 7-6 
8.2 Conversion Rules 8-2 

multiple declaration 

5.1 Scope of a Declaration 5-1 

<multiple do> 

12.9 The Do Statement 12-9 

multiply built-in function 

13.2.16 Multiply 13-15 

name 

5. Declarations 5-1 

<name condition name) 

10.4.9 Hame Condition 10-7 

named constant 

4.1.2 Constants 4-1 

<named constant set) 

5.5 Attribute Consistency 5-32 

<newline) 

2.6.4 Delimiters, Blanks and Comments 2-8 

nextrecord 

11.2 File Values and File-State Blocks 11-1 

11.3 Opening a File II-3 

12.8 The Delete Statement 12-8 
12.23 The Read Statement 12-35 
12.26 The Rewrite Statement 12-38 
12.28 The Write Statement 12-41 
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<noniterative do> 

12.9 The Do Statement 12-9 

<noniterative group> 
2.3 Croups 2-2 

nonlocal goto 

3.5 Local and Monlooal Goto Statements 3-3 

<nonvapylng attribute) 

5.1.31 Nonvarylng 5-26 

<noniial picture) 

8.2.12.1 Syntax of Pictures 8-15 

<notatlon constant) 

1.2.3 A Formal Definition of the Meta-Language 1-3 

<notation variable) 

1.2.3 A Formal Definition of the Meta-Language 1-3 

null bit-string 

2.6.2.1 Bit-String Constants 2-6 
U.1.6 String Data t-3 

8.2.« Character-String to Bit-String Conversion B-H 
8.2.6 Bit-String to Character-String Conversion 8-5 

I null built-in function 
13.6. 10 Null 13-26,1 

null character-string 

2.6.2.2 Character-String Constants 2-6 
1.1.6 String Data a-3 

8.2.fl Character-String to Bit-String Conversion 8-4 

3.2.6 Bit-String to Character-String Conversion 3-5 

null locator value 

4.1.7 Locator Data 1-3 
13.6.10 Mull 13-26.1 

<null statement) 

12.18 The Null Statement 12-27 

Inullo built-in function 
13.6.11 Nullo 13-16.1 

<nuaerio constant) 

8.2.3 Character-String to Arithmetic Conversion 3-3 

<nuBeric picture) 

3.2.12.1 Syntax of Pictures 8-15 

<offset attribute) 

5.1.35 Offset 5-26 

I offset built-in function 
I 13.6.12 Offset 13-26.1 

<on statement) 

3.6.3 On Units 3-1 

12.19 The On Statement 12-27 

<on unit) 

3.6.3 On Units 3-1 

12.19 The On Statement 12-27 

onohar built-in function 

13.5.1 Onchar 13-22 

<onchar pseudo) 

12.2 The Assignment Statement 12-2 

oncode built-in function 

13.5.2 Oncode 13-22 

onfield built-in function 

13.5.3 Onfield 13-23 

onflle built-in function 
13.5.1 Onfile 13-23 

onkey built-in function 
13-5.5 Onkey 13-23 

onloc built-in function 
13.5.6 Onloc 13-23 
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onaouroe built-in function 
13.5.7 Onsouroe 13-23 

<onsource pseudo> 

12.2 The Assignment Statement 12-2 

<open statenent> 

12.20 The Open Statement 12-28 

<apening> 

12.20 The Open Statement 12-28 

<openlng attribute> 

11.3 Opening a File n-3 
12.20 The Open Statement 12-28 

<opening option> 

12.20 The Open Statement 12-28 

operand 

7. Expressions 7-1 

7.1.11 Order of Evaluation 7-2 

7.1.5 Optional Evaluation 7-3 

7.3.1.1 Operand Conversion for Arithmetic Operators 7-5 

7 i'f* X"*'"^"^ Conversion for Bit-String Operators 7-8 

■r'i'n] °P«'"3nd Conversion for Concatenation 7-9 

f.3.4.1 Operand Conversion for Relational Operators 7-10 

operators 

1.2.2 Syntax Expressions 1-2 

7. Expressions 7-1 

7.1.1 Order of Evaluation 7-2 

7.2 Formal Syntax of Expressions 7-M 

7.3.1 Arithmetic Operators 7-5 

7.3-2 Bit-String Operators 7-8 

7.3.3 Concatenate Operator 7-9 

7.3.1 Helational Operators 7-9 

<option3 attribute) 

5.4.36 Options 5-26 

<output attribute) 

5.4.37 Output 5-27 

output buffer 

1 1.4 Closing a File 11-5 

12.17 The Locate Statement 12-25 

12.28 The Write Statement 12-41 

output conversion 

?;^:I^ Format Controlled Conversion 8-9 
12.12 The Format Statement 12-14 

<overflow condition name> 

10.4.10 Overflow Condition 10-8 

packed aggregate variable 

4.3.1 Packing and Alignment of Variables 4-8 

packed scalar variable 

4.3.1 Packing and Alignment of Variables 4-8 

4.3.1.1 Packing and Alignment of Scalar Variables 4-9 

packed structure 

4.3-1 Packing and Alignment of Variables 4-8 
^.3.1.2 Packing and Alignment of Structures 4-9 
4.3.1.3 Packing and Alignment of Arrays 4-10 

<page format) 

12.12 The Format Statement 12-1 M 

<page option) 

12.22 The Put Statement 12-30 

pagenark 

11.1.1 Stream Data Sets 11-1 

3i*?/ii* Values and File-State Blocks 11-1 

12.12 The Format Statement 12-14 

12.22 The Put Statement 12-30 

pageno built-in function 
13.6.13 Pageno 13-27 

< pageno pseudo) 

12.2 The Assignment Statement 12-2 
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pagenuaber 

11.2 File Values and File-State Blocks 11-1 
12.2 The Assignment Statement 12-2 
12.22 The Put Statement 12-30 
13.6. 13 Pageno 13-27 

pagesize 

10. U. 4 Endpage Condition 10-5 

11.2 File Values and File-State Blocks 11-1 

11.3 Opening a File 11-3 

12.12 The Format Statement 12-1*1 

<page3ize option> 

12.20 The Open Statement 12-28 

parameter 

9.3.1.3 Packing and Alignment of Arrays 1-10 

t.i.3 Storage Sharing 4-14 

*. 3-3.1 Storage Sharing by Parameters 4-15 

4.3.3.2 Storage Sharing by Based Variables 4-15 

5.2.-4 Establishment of Contextual Declarations 5-9 

5.2.5 Contextually Derived Attributes 5-9 

5.4.41 Position 5-28 

6.10 Parameters and Arguments 6-8 

6.10.1 Argument Passing By-value or By-reference 6-8 

0.10.2 Argument Conversion and Promotion 6-9 

6.10.3 Asterisk and Constant Extents of Parameters 6-9 

6.10.4 Storage of a Parameter 6-9 

8.1 Contexts That Force Conversion 8-1 
9.1 Contexts That Force Promotion 9-1 
12.4 The Call Statement 12-6 
12.11 The Entry Statement 12-13 

12.21 The Procedure Statement 12-29 

<parameter attribute) 

5.4.38 Parameter 5-27 

<parameter descriptor) 
5.4.17 Entry 5-19 

<parameter descriptor list) 
5.4.17 Entry 5-19 

< parameter list) 

12. n The Entry Statement 12-13 
12.21 The Procedure Statement 12-29 

parent pointer 

3.3.2 Environment of a Block Activation 3-2 

? £ "3 A.. ii_^^— '^ I. - 

4.1.9 Label Data 4-4 
U.I. 10 Format Data 4-5 
1.1.11 Entry Data 4-5 

< parenthesized expression) 

7.2 Formal Syntax of Expressions 7-4 

partially qualified 

6.4 Structure Qualified References' 6-3 

<picture) 

8.2.12.1 Syntax of Pictures 8-15 

<ploture attribute) 

5.4.39 Picture 5-27 

<picture char) 

8.2.12.1 Syntax of Pictures 8-15 

< picture format) 

8.2.11.6 Picture Format 8-14 
12.12 The Format Statement 12-14 

<plctur» scale factor) 

8.2.12.1 Syntax of Pictures 8-15 

pictured character-string 
I*. 1.6 String Data 4-3 

<pointef attribute) 

5.4.40 Pointer 5-28 

I pointer built-in function 
I 13.6.14 Pointer 13-27 
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<posltion> 

t'hh^ storage Sharing by Defined Variables «-l6 
5. J*. ill Position 5-28 

<positloh attribute) 

5.3.3-3 Storage Sharing by Defined Variables H-16 
S.t.m Position 5-28 

pree built-in function 

13.2.17 Precision 13-16 

<precislon> 

5.1.12 Precision 5-28 

precision 

1.1.5 Arithmetic Data 1-2 

5.3 Completion of Attribute Sets 5-10 

5.1.21 Generic 5-22 

S.I. 12 Precision 5-28 

6.10.1 Argument Passing By-value or By-reference 5-8 

7.3.1.1 Operand Conversion for Arithmetic Operators 7-5 

7.3.1.2 Results of Arithmetic Operators 7-6 

8.2.3 Character-String to Arithnetio Conversion 3-3 
8.2.5 Bit-String to Arithmetic Conversion 8-1 

8.2.7 Arithmetic to Character-String Conversion 3-5 

8.2.8 Arithmetic to Bit-String Conversion 8-7 

8.2.9 Arithmetic Mode Conversion 5-7 

8.2.10 Arithmetic Type, Base and Precision Conversion 3-8 

8.2.11 Format Controlled Conversion 3-9 

8.2.12 Picture Controlled Conversion 8-15 
10.1.12 Size Condition 10-8 

<precision attribute) 

5.1.21 Generic 5-22 
5.1.12 Precision 5-28 

precision built-in function 
13.2.17 Precision 13-I6 

< precision key> 

5.1.12 Precision 5-28 

<predicate> 

5.3.1_pefault Statement 5-11 
12.7 ine Default Statement 12-8 

< predicate one> 

5.3.1 Default Statement 5-11 
12.7 The Default Statement 12-8 

<predioate three> 

5.3.1 Default Statement 5-11 
12.7 The Default Statement 12-8 

< predicate two> 

5.3.1 Default Statement 5-11 
12.7 The Default Statement 12-8 

<preflx> 

2.5.1 Statement Prefixes 2-1 

prefix arithmetic operators 

7.3.1 Arithmetic Operators 7-5 

prefix expression 

1.1.1 Data Types of Expressions and Functions 4-2 
7. Expressions 7-1 

7.1.2 Evaluation of Prefix Expressions 7-1 

< prefix name) 

10.2 Condition Prefixes 10-1 

<prefix subscript) 

2.5.1 Statement Prefixes 2-1 

primitive expression 

7. Expressions 7-1 

7.1.1 Evaluation of Primitive Expressions 7-1 

<print attribute) 

5.1.13 Print 5-29 

< procedure) 

2.2 Blocks and Block Structure 2-1 

<procedure component) 

2.2 Blocks and Block Structure 2-1 
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<ppocedure option> 

12.21 The Procedure Statement 12-29 

<procedure 3tatenent> 

12.21 The Procedure Statement 12-29 

process (a Multics process) 

3.2 A Muitios PL/I Program 3-1 
t.1.7 Locator Data 4-3 
8.1.8 Area Data fl-4 

4.3.2.3 Static Storage 4-12 

4.3.2.4 Controlled Storage 4-12 

4.3.2.5 Based Storage 4-12 
11.4 Closing a File 11-5 
13.6.20a Vclock 13-30 

I prod built-in function 
13.4.5 Prod 13-21 

program 

2.1 External Procedure 2-1 
See process 

<programmer defined condition name> 

10.4.21 Muitios and Programmer Defined Conditions 10-11 

<pseudo-variable> 

12.2 The Assignment Statetient 12-2 

Iptr built-in function 
13.6.14 Pointer 13-27 

<put data> 

12.22 The Put Statement 12-30 

<put data item> 

12.22 The Put Statement 12-30 

<put edit> 

12.22 The Put Statement 12-30 

<put edit pair> 

12.22 The Put Statement 12-30 

<put item> 

12.22 The Put Statement 12-30 

<put list> 

12.22 The Put* Statement 12-30 

<put list specification) 

12.22 The Put Statement 12-30 

<put statement) 

12.22 The Put Statement 12-30 

<radi!c factor) 

2.6.2.1 Bit-String Constants 2-6 
8.2.11.5 Bit-String Format 8-14 
12.12 The Format Statement 12-14 
12.14 The Get Statement 12-19 

<range> 

5.3-1 Default Statement 5-11 
12.7 The Default Statement 12-8 

rank built-in function 

13. 1. 12o Hank 13-6. 1 

<read option) 

12.23 The Read Statement 12-35 

<read statement) 

12.23 The Read Statement 12-35 

<real attribute) 

5.4.44 Real 5-29 

real built-in function 
13.2.18 Real 13-16 

<real constant) 

2.6.2,3 Arithmetic Constants 2='' 
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